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

[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

exemple.rar

تم تعديل أكتوبر 5, 2016 بواسطه bouzara.larbi

[Shivan Rekany]

اكتب هذا الكود في 

Dim ADate As Date

ADate = Dateadd("YYYY",10,Date)

ADate = Dateadd("d",-1,Date)

eme.B = ADat

اذا عندك حقل خاص للتارخ لكي تضيفه اخلي اسم الحقل بدل  Date  اللي في كود

واسف انا هسة بستخدم موبايل

بكرة ان شاء الله راح ارفق لك نموذج بسيط

مع تقدير

[رمهان]

1 ساعه مضت, bouzara.larbi said:

أريد إضافة 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

exemple.rar

Dim ADate As Date
ADate = (DateAdd("YYYY", 1O, Me. [A]))-1
Me.[B] = ADate

مع العلم ان اسم الكوماند في المشاركة ليس موجود في المرفق

ضع الكود السابق خلف الزر وعند النقر

 

بالتوفيق