Calcul entre deux dates

Signaler
Messages postés
4
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
3 avril 2005
-
Messages postés
4
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
3 avril 2005
-
bonjour,
je cherche a effectuer le calcul du temps ecoulé entre deux dates
et avoir le resultat en JJ/MM/AAAA
exe mple : le temps écoulé entre 01/01/2004 et 02/01/2005
doit avoir comme résultat : 01 an 00 mois et 01 jour

merci d'avance

3 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
16
Salut,

Voir la fonction datediff.

Cordialement, CanisLupus
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
30
Dim d As Date
Dim d1 As Date
Dim d2 As Date
Dim x As Long
Dim an As Long
Dim mois As Long
Dim jour As Long

d1 = "02/01/2004"
d2 = "01/01/2005" If d1 > d2 Then d d1: d1 d2: d2 = d


d = d1
jour = Day(d2) - Day(d)
If jour < 0 Then
d = DateAdd("m", 1, d1):
jour = d - d1 + Day(d1) - Day(d) + jour
End If
mois = Month(d2) - Month(d)
If mois < 0 Then d DateAdd("yyyy", 1, d): mois mois + 12
End If
an = Year(d2) - Year(d)
x = an + mois * 10000 + jour * 1000000
MsgBox Format$(x, "00/00/0000")

Daniel
Messages postés
4
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
3 avril 2005

ok, merci à vous deux pour la rapidite de votre reponse
je teste de suite le code de Daniel.

cordialement

goupil97