[VBA-E] Différence entre 2 dates

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!

Il faut convertir tes dates en long:

Code:

---

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

---

te donne un resultat en nombre de jours

bonjour,
utilise la fonction datediff

Code:

---

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

---

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...??

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

Citation:

---

date2 = Cells(i, 2)
date1 = Date

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

---

Je fais une erreur?

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!

comment déclare tu ta variable res .... ( il ne faut pas la déclarer en date !) :wink:

Merci bbil, regarde le message que j'ai posté juste, si pas en meme temps que toi...

lol on s'est croisé...! ( durant mes tests sous excel..)

remplace "d" par "yyyy" .. :wink: