cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
28 févr. 2007 à 22:23
Re,
Date1 = "03/31/2009 11:00:00"
date2 = "02/27/2007 11:03:05"
diff = DateDiff("s", date2, Date1)
nouvdate = DateAdd("s", diff, "01/01/2000")
nouvdate = DateAdd("d", -1, nouvdate)
tempsj = DateDiff("d", "01/01/2000", nouvdate)
If TimeValue(date2) > TimeValue(Date1) Then tempsj = tempsj - 1
MsgBox nouvdate &vbCrLf& tempsj
'nouvdate affiche 31/01/2002 23:56:55
'tempj affiche 760 (jours)
'tempsh = Format(nouvdate, "hh:mm:ss") ' format n'est pas accepté en vbs
pour ma part, j'ai simplement fait:
Date1 = "03/31/2009 11:00:00"
date2 = "02/27/2007 11:03:05"
'années
MsgBox CInt((CDate(Replace(Left(date1,10),"-","/")) - CDate(Replace(Left(date2,10),"-","/"))) / 365) & " ans",,"test1 retourne 2 ans"
Msgbox (DateDiff("yyyy",CDate(Replace(date2,"-","/")), CDate(Replace(date1,"-","/")))) & " ans",,"test2 retourne 2 ans"
'jours
MsgBox CLng(CDate(Replace(Left(date1,10),"-","/")) - CDate(Replace(Left(date2,10),"-","/"))) & " jours",,"test3 retourne 763 jours"
MsgBox CInt(CDate(Replace(date1,"-","/")) - CDate(Replace(date2,"-","/"))),,"test4 retourne 763 jours"
MsgBox DateDiff("d",date2, date1),,"test5 retourne 763"
'hh:mn:sc
MsgBox FormatDateTime(CDate(Replace(date1,"-","/")) - CDate(Replace(date2,"-","/")),3),,"test5 retourne 23:56:55"
Bon, je vais faire une pause sur ce faux problème.
Moi aussi, j'ai le tournis (apéro + surveillance exploit fin de mois sur "mon" gcos7) ....
jean-marc