Aide sur les Dates
Résolu
cs_yohann59
Messages postés
12
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
15 janvier 2008
-
27 oct. 2006 à 16:40
cs_yohann59 Messages postés 12 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 15 janvier 2008 - 29 oct. 2006 à 02:56
cs_yohann59 Messages postés 12 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 15 janvier 2008 - 29 oct. 2006 à 02:56
4 réponses
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
27 oct. 2006 à 16:57
27 oct. 2006 à 16:57
Salut,
Je ne comprends pas trop ce qaue tu souhaite faire.
Si tu veux ajouter un certains nombre de jours a une date.
Dim MDate as date
Dim DDate as Date
MDate = "31/10/2006"
DDate = MDate + 1 '1= Nombre de jour de à ajouter
Msgbox Format(DDate, "yymmdd")
Tu peux aussi utiliser DateAdd.
@+, Ju£i?n
Je ne comprends pas trop ce qaue tu souhaite faire.
Si tu veux ajouter un certains nombre de jours a une date.
Dim MDate as date
Dim DDate as Date
MDate = "31/10/2006"
DDate = MDate + 1 '1= Nombre de jour de à ajouter
Msgbox Format(DDate, "yymmdd")
Tu peux aussi utiliser DateAdd.
@+, Ju£i?n
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
27 oct. 2006 à 19:21
27 oct. 2006 à 19:21
CodeBarre = Format (DDate, "yymmdd")
---- Sevyc64 (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
---- Sevyc64 (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
cs_yohann59
Messages postés
12
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
15 janvier 2008
27 oct. 2006 à 19:02
27 oct. 2006 à 19:02
Alors,
Tout d'abord merci pour ton aide.
Peut on faire la même chose sans le Msgbox ?
Et pour le reste :
Ca marche plus ou moin,
Je met donc Ceci:
Dim MDate as date
Dim DDate as Date
MDate = Jjd.Text & "/" & Mmd.Text & "/" & Aad.Text
DDate = MDate + 1
Msgbox Format (DDate, "yymmdd")
et dans mon code je met donc :
CodeBarre = DDate
Seulement mon programme écrit sous le code barre sa valleur numérique qui contient donc cette fameuse date et du coup mon code barre n'est plus valide puisqu'il interpréte et affiche sous ce code barre la date sous le format 31/10/2006 alors que dans le Msgbox, j'ai bien la date comme je devrais l'avoir c'est à dire 061031
Si quelqu'un a une idée elle est la bienvenue.
Si il vous faut plus de détail sur mon code je peux éventuélement l'ajouter
Merci
Yohann
Tout d'abord merci pour ton aide.
Peut on faire la même chose sans le Msgbox ?
Et pour le reste :
Ca marche plus ou moin,
Je met donc Ceci:
Dim MDate as date
Dim DDate as Date
MDate = Jjd.Text & "/" & Mmd.Text & "/" & Aad.Text
DDate = MDate + 1
Msgbox Format (DDate, "yymmdd")
et dans mon code je met donc :
CodeBarre = DDate
Seulement mon programme écrit sous le code barre sa valleur numérique qui contient donc cette fameuse date et du coup mon code barre n'est plus valide puisqu'il interpréte et affiche sous ce code barre la date sous le format 31/10/2006 alors que dans le Msgbox, j'ai bien la date comme je devrais l'avoir c'est à dire 061031
Si quelqu'un a une idée elle est la bienvenue.
Si il vous faut plus de détail sur mon code je peux éventuélement l'ajouter
Merci
Yohann
cs_yohann59
Messages postés
12
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
15 janvier 2008
29 oct. 2006 à 02:56
29 oct. 2006 à 02:56
Merci ça fonctionne !
J'ai encore un ou deux soucis mais cela fera surement l'objet d'un autre post
Merci encore.
Yohann
J'ai encore un ou deux soucis mais cela fera surement l'objet d'un autre post
Merci encore.
Yohann
