كيف أعدل الكود

[bouzara.larbi]

أريد إضافة 10 سنوات إلا يوم أي اليوم السابق مثلا: 05/10/2016 إلى 04/10/2026

Private Sub Commande378_Click()

 

Dim ADate As Date

ADate = DateAdd("YYYY", 1O, Me. [A])

=DateAdd("d", -1, [B])

Me. [B] = ADate

 

End Sub