Calcul entre deux dates
goupil97
Messages postés
4
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
3 avril 2005
-
8 janv. 2005 à 19:55
goupil97 Messages postés 4 Date d'inscription mercredi 19 mai 2004 Statut Membre Dernière intervention 3 avril 2005 - 9 janv. 2005 à 15:03
goupil97 Messages postés 4 Date d'inscription mercredi 19 mai 2004 Statut Membre Dernière intervention 3 avril 2005 - 9 janv. 2005 à 15:03
3 réponses
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
20
8 janv. 2005 à 20:34
8 janv. 2005 à 20:34
Salut,
Voir la fonction datediff.
Cordialement, CanisLupus
Voir la fonction datediff.
Cordialement, CanisLupus
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
8 janv. 2005 à 21:56
8 janv. 2005 à 21:56
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
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
goupil97
Messages postés
4
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
3 avril 2005
9 janv. 2005 à 15:03
9 janv. 2005 à 15:03
ok, merci à vous deux pour la rapidite de votre reponse
je teste de suite le code de Daniel.
cordialement
goupil97
je teste de suite le code de Daniel.
cordialement
goupil97
