اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


samisalim
إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

تفضل :

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

 

جعفر

  • Like 3
رابط هذا التعليق
شارك

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وزادك علما ينتفع به 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information