Difference entre 2 dates

Bonjour à tous,

Je rencontre un problème pour faire la différence entre deux dates:

En effet l'une apparaît dans un textbox et l'autre serait celle d'aujourd'hui.
A titre d'exemple 2011-1980 (année affichée par la textbox).

Mon code serait le suivant :

If ACONCEPT < (Year(Date) - 7) Then

SURCOU_ANNEE = (TRAIT_OBSO - 2) * ((Year(Date) - ACONCEPT)</gras> ^ ((Sheets("parametres_obso").Range("C30")) * (Sheets("parametres_obso").Range("C31"))))

Else: SURCOU_ANNEE = ""

End If

En effet, le code affiché en gras indique une date entière alors que ACONCEPT renvoit uniquement une année

Merci d'avance.

bonjour,

je crois que le mieux serait d'utiliser datediff.

DateDiff(DateInterval.Year, date1, date2)

Bonsoir,

Le plus simplement possible :

Difference = DateFin - DateDebut

Patrice