Problème de calcul de date

Question

Bonjour !

voilà, j'aimerai savoir comment peut-on faire pour transformer une date (01/07/2003) en type int (1824)...

NB : 1824 représente le nombre de 1/2 journées passées depuis le 01/12/2000 (ou un truc comme ça)...

Si vous avez des idées....
Merci d'avance !

pcpunch · Answer

Slt, je ne comprend pas bien ta question, mais il faut que tu utilise la fonction datediff de vb ex:

'Nombre de jour passé
jour$ = DateDiff("d", "01/01/2000", "01/07/2003")
'Nombre de demi-journée passé (jour$*2)
demi$ = jour$ * 2

PS: 1824?? correspond a koi????
Nb de jour entre tes 2 dates : 1277 donc 2554 1/2j ????

pcpunch · Answer

Dsl j'ai mis 01/01/2000 au lieu de 1/12/2000 mais :
Nb de jour entre tes 2 dates : 942 donc 1884 1/2j ???? 

'Nombre de jour passé
jour$ = DateDiff("d", "01/12/2000", "01/07/2003")
'Nombre de demi-journée passé (jour$*2)
demi$ = jour$ * 2

Muintyr · Answer

J'ai complétement oublié d'envoyer un message comme quoi j'avais finalement trouvé la réponse : en fait j'utilise :

Dim od As Date
Dim dd As Date

od = Format("1/1/2001", "ddddd")
dd = Format(Text1, "ddddd")

Text3 = ((dd - od) * 2) + 2

et ça marche .....

pcpunch · Answer

ok mais pourquoi rajouter +2 , ca fausse le resultat!!!

Utilse la fonction datediff c plus court, a moin que tu prefere te compliquer la vie!!!

DateDiff("d", "01/12/2000", "01/07/2003") * 2

ça donne 1884 avec ton code 1886!!!! 

Petit exemple d'utilisation de DateDiff :

Naissance = "24/11/74"
MsgBox "Vous avez " & DateDiff("d", Naissance, Date) & " jours"
MsgBox "Vous avez " & DateDiff("d", Naissance, Date) * 24 & " heures"
MsgBox "Vous avez " & DateDiff("yyyy", Naissance, Date) & " ans"
MsgBox "Vous avez " & DateDiff("q", Naissance, Date) & " trimestres"
MsgBox "Vous avez " & DateDiff("m", Naissance, Date) & " mois"


++

Problème de calcul de date

4 réponses

Discussions similaires