XL 2021 VBA calcul d'un intervalle entre deux TEXTBOX

[dadaze]

Bonjour,

Je pensait ne pas rencontrer de difficulté encore raté! En effet, je souhaite calculer un intervalle entre une date de naissance et celle du jour exprimé en année.
Pour ce faire j'utilise deux TEXTBOX la première contenant la date de naissance et l'autre censée m'affichait l'âge.
A cette fin j'ai utilisé le code ci dessous mais bien évidemment ça bug en me retournant un chiffre négatif
Exemple : je mets ma date de naissance dans la TXTDATE2 et la TXTage me retourne ceci -19979.
Si vous disposez d'un peu de temps à me consacrer, je vous en remercie d'avance.

Private Sub TXTage_Enter()
Me.TXTage = Format(Me.TXTage, "0")
Me.TXTage.Value = DateDiff("y", Now, CDate(Me.TXTDATE2))
End Sub

 

[sylvanu]

Bonjour Dadaze,
Ne disposant pas de DateDiff, j'ai simplement fait :

Private Sub CommandButton1_Click()
    TxtAge = Int((Now - CDate(TxtDate2)) / 365.25)
End Sub

Addon : Mais je pense que la syntaxe de Datediff est Datediff(date début ; date fin) donc serait plutot :

Me.TXTage.Value = DateDiff(CDate(Me.TXTDATE2),Now,"y")

( évidemment non testé )

https://support.microsoft.com/fr-fr/office/calculer-la-différence-entre-deux-dates-8235e7c9-b430-44ca-9425-46100a162f38

 

[patricktoulon]

bonjour
perso j'utilise la formule avec evaluate

Private Sub TXTage_Enter()
Me.TXTage.Value = Evaluate("=DATEDIF(" & CLng(CDate(TXTDATE2)) & "," & CLng(Date) & ",""y"")")
End Sub

terminé

 

[job75]

Bonjour à tous,

Il manquait juste 3 "y" :

Private Sub TXTage_Enter()
TXTage = DateDiff("yyyy", CDate(TXTDATE2), Now)
End Sub

A+

 

[dadaze]

bonjour
perso j'utilise la formule avec evaluate

Private Sub TXTage_Enter()
Me.TXTage.Value = Evaluate("=DATEDIF(" & CLng(CDate(TXTDATE2)) & "," & CLng(Date) & ",""y"")")
End Sub

terminé

Un grand merci à Patricktoulon et Sylvanu les deux codes fonctionnent parfaitement.
je vous souhaite une bonne fin de Weekend

 

[dadaze]

Bonjour à tous,

Il manquait juste 3 "y" :

Private Sub TXTage_Enter()
TXTage = DateDiff("yyyy", CDate(TXTDATE2), Now)
End Sub

A+

merci Job 75 ça fonctionne aussi
bonne fin de Weekend