مساعدة في تعديل كود حساب بين تاريخين بعدد السنوات

[samisalim]

السلام عليكم ورحمة الله وبركاته

أخواني الاعزاء اساتذتي الكرام تحيه طيبه وبعد

يوجد لدي كود لحساب فترة الضمان بين تاريخين

Private Sub yars_AfterUpdate()
Dim ys
ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE
Me.EDATE = ys
End Sub

المطلوب :

انقاص يوم واحد من تاريخ انتهاء الضمان

مثال :

بداية تاريخ الضمان: 23/6/2021

مدة الضمان بالسنوات :2سنة

انتهاء الضمان : 22/6/2023

 تم ارفاق مثال توضيحي...

IT_v1_0001.rar

[jjafferr]

وعليكم السلام 🙂

 

تفضل :

Private Sub yars_AfterUpdate()
'1
  	Dim ys as Date
	ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE
	Me.EDATE = DateAdd("D", -1, ys)

'Or
'2
	Dim ys As Date
	ys = Me.BDATE - 1
	Me.EDATE = DateAdd("yyyy", Me.WARRNTY, ys) + DateAdd("yyyy", 0, ys) - ys  
  
 End Sub

 

جعفر

[samisalim]

6 ساعات مضت, jjafferr said:

وعليكم السلام 🙂

 

تفضل :

Private Sub yars_AfterUpdate()
'1
  	Dim ys as Date
	ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE
	Me.EDATE = DateAdd("D", -1, ys)

'Or
'2
	Dim ys As Date
	ys = Me.BDATE - 1
	Me.EDATE = DateAdd("yyyy", Me.WARRNTY, ys) + DateAdd("yyyy", 0, ys) - ys  
  
 End Sub

 

جعفر

جزاك الله خيرا ورفع الله قدرك استاذي @jjafferrوزادك علما ينتفع به