تعديل كود الدالة DateADD

[Ahmed_J]

السلام عليكم

ملف مرفق لاحد الاخوه هنا بالموقع فيه دالة لاضافة سنة على التاريخ المحدد وتوجد دالة اخرى لانقاص عدد من الاشهر فيه

لكن عند شهر فبراير  (شباط) يصبح هنالك فرق بالتاريخ 

المطلوب تعديل الكود  بحيث يصبح عند انقاص التاريخ 2021/3/2 لمدة شهر يصبح 2021/2/2

وشكرا لكم

test2.accdb

[ابوخليل]

النتيجة صحيحة لان الشهر ناقص

ومع ذلك وحسب رغبتك يمكن ان نعامل شهر 3 معاملة خاصة

Dim i As Byte
Private Sub dat1_AfterUpdate()
 i = Month(dat1)
 If i = 3 Then
 ys = DateAdd("m", -Me.dat2, Me.dat1 + 1) + DateAdd("yyyy", 1, Me.dat1) - dat1
Else
ys = DateAdd("m", -Me.dat2, Me.dat1) + DateAdd("yyyy", 1, Me.dat1) - dat1
End If
Me.dat3 = ys
DoCmd.Requery
End Sub

 

test2.rar

[نبراس كاظم]

1 hour ago, Ahmed_J said:

السلام عليكم

ملف مرفق لاحد الاخوه هنا بالموقع فيه دالة لاضافة سنة على التاريخ المحدد وتوجد دالة اخرى لانقاص عدد من الاشهر فيه

لكن عند شهر فبراير  (شباط) يصبح هنالك فرق بالتاريخ 

المطلوب تعديل الكود  بحيث يصبح عند انقاص التاريخ 2021/3/2 لمدة شهر يصبح 2021/2/2

وشكرا لكم

test2.accdb 1.38 MB · 5 downloads

Expr1: DateAdd("m";1;[date_report])

اضافة شهر الى حقل الشهر الذي تريد الاضافة علية

 

[Ahmed_J]

السلام عليكم

شكرا لكم اساتذتي الاعزاء @ابوخليل @نبراس كاظم

استاذ ابو خليل اصبح فرق يوم بالنسبة للاشهر الاخرى 

الدالة بالملف تعمل جيدا ماعدا شهر شباط  يكون فيه فرق يوم واحد عن انقاص شهر من المعادلة

 

[ابوخليل]

انا لم اتعرض للاشهر الأخرى

وضعت اداة الشرط فيما لو كان الشهر في ( dat1 = 3 ) يزيد يوما واحدا

علما اني جربت المثال ويعمل بشكل صحيح حسب طلبك

[Ahmed_J]

استاذ ابو خليل المحترم @ابوخليل

الملف الاصلي  فيه كل الاشهر تعمل بصورة صحيحة  الا شهر شباط  فرق فيه يوم فرق  ولا اعرف السبب؟

تحياتي لك استاذ 

 

[Hawiii]

Private Sub dat2_AfterUpdate()
  Me.dat3 = DateSerial(Year(dat1) + 1, Month(dat1) - Me.dat2, Day(dat1))
End Sub

 

[Ahmed_J]

شكرا لك استاذي العزيز @Hawiii

ساجرب الكود

تحياتي لك

 

[Ahmed_J]

السلام عليكم استاذ @Hawiii

تسلم ايدك كلوا تمام الكود فعال 100%

اذا ممكن شرح بسيط لهذا الكود 

وشكرا لك