[VBA-E] Différence entre 2 dates

**ptitsoleil87** · 21/12/2005, 12h13

Bonjour,
j'aimerai savoir s'il existe un code simple pour effectuer une difference entre 2 dates et obtenir ce resultat en jours.
j'ai mes 2 dates ds le bon format (dd/mm/yyyy) ms lorsque je fais dif=date2-date1 ca me donne n'important quoi comme resultat...
D'avance, merci pour votre aide!

**Anthemios** · 21/12/2005, 12h39

Il faut convertir tes dates en long:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dif=clng(date2)-clng(date1)

te donne un resultat en nombre de jours

**AdHoc** · 21/12/2005, 12h43

bonjour,
utilise la fonction datediff

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'Cet exemple utilise la fonction DateDiff pour afficher le nombre de jours entre une date donnée et la date d'aujourd'hui.
Dim TheDate As Date	' Déclare les variables.
Dim Msg
TheDate = InputBox("Entrez une date")
Msg = "Jours à compter d'aujourd'hui: " & _
		DateDiff("j", Now, TheDate)
MsgBox Msg

**ptitsoleil87** · 21/12/2005, 13h03

Merci! Mais le probleme, c'est que ca ne marche pas.
J'avais bien vu la fonction datediff ds la faq, ms je ne comprend pas.
ds ma date1, j'ai 21/12/2005, ds ma date2, j'ai 12/11/1982 et ca ma donne comme resultat 20/11/1876...??

**SfJ5Rpw8** · 21/12/2005, 13h07

tu peu nous montrer ton code ... et comment tu met tes dates dans date 1 et date2

**ptitsoleil87** · 21/12/2005, 13h09

date2 = Cells(i, 2)
date1 = Date

res = DateDiff("d", date2, date1)
MsgBox res

Je fais une erreur?

**ptitsoleil87** · 21/12/2005, 13h14

J'ai compris deja 2 erreurs que j'avais fait.
le res etait declaré en date, je l'ai donc passé en integer.
ms mon autre soucis auquel je viens de penser, c que je veux la différence d'années en fait, et non la différence de jours...
est ce que la fonction datediff peut qd meme marcher?
(je veux recuperer l'age d'une personne exactement... dc en fait, il faut regarder, le jour, le mois et l'année... mais comment faire?
Merci encore pour votre aide!