Ajouter 3 ans a une date inscrite dans une textBox

Question

Bonjour, dans un formulaire d'inscription pour une association, j'ai une textbox dans laquelle je rentre une date sous la forme DD/MM/YYYY (Cette date correspond au jour ou le certificat medical a été délivré).

un certificat medical est désormais valable 3 ans . je souhaite lorsque je fais une recherche d'adherent pouvoir indiquer automatiquement la fin de validité du certificat medical

j'ai fait ca mais je pense qu'il doit y avoir une autre solution

Private Sub TxtCertificatMedical_Change()
TxtCertificatMedical.Value = Format(TxtCertificatMedical.Value, "dd/mm/yyyy")
TxtFinValidite.Value = CDate(TxtCertificatMedical.Value) + 1095
End Sub

1095 c'est 365 jours*3

Merci d'avance de m'apporter une solution

Cordialement

xorsankukai · Accepted Answer

Bonjour phil107 , le forum, Peut-être ainsi: TxtFinValidite.Value = DateSerial(Year(TxtCertificatMedical) + 3, Month(TxtCertificatMedical), Day(TxtCertificatMedical)) Cordialement...