فیلد محاسباتی در After Update

با سلام

بعد از وارد کردن تاریخ قرارداد (t8)، تاریخ انقضای 6 ماهه، با کد زیر در فیلدش (m6) دیده می‌شه:

Private Sub t8_AfterUpdate()

m6 = DateAdd("m", 6, t8)

End Sub

نیاز دارم مهلت باقیمانده در فیلد مربوطه (mohlatm6) محاسبه و دیده بشه. (چون اول، تاریخ انقضا (m6) باید محاسبه بشه، کد زیر در خاصیت After Update فیلد قرارداد (t8)، جواب نمی‌ده)

mohlatm6 = TotalDiff (txtToday, m6) 

سلام و روز خوش

1- مطمئن نیستم منظور شما رو درست گرفته باشم،
ولی همین باید درست باشه:

Private Sub t8_AfterUpdate()

m6 = DateAdd("m", 6, t8)

mohlatm6 = TotalDiff(txtToday, m6)

End Sub

2- اون default value برای mohlatm6 هم بنظر میاد لازم نیست.

سلام بزرگوار

- default value برای mohlatm6 رو هم برداشتم ولی جواب نگرفتم.

- چون اول، تاریخ انقضا (m6) باید محاسبه بشه، کد زیر در خاصیت After Update فیلد قرارداد (t8)، جواب نمی‌ده:

mohlatm6 = TotalDiff (txtToday, m6) 

سلام دوباره

الان منظور شما از جواب ندادن در (چون اول، تاریخ انقضا (m6) باید محاسبه بشه، کد زیر در خاصیت After Update فیلد قرارداد (t8)، جواب نمی‌ده) مشخص نیست!

چون اون خط دوم کد پست 2 (محاسبه مهلت) مشکلی نداره و
بعد از خط اول (محاسبه تاریخ انقضا) اجرا میشه، و اگر مشکلی باشه باید در همون خط اول دیده بشه.

مشکل کد محاسبه تاریخ انقضا این هست که شما از تابع DateAdd که برای تاریخ میلادی (گرگوری) هست استفاده کردین؛
تعداد روزهای ماه های میلادی با تعداد روزهای ماه های ایرانی متناظر شون یکی نیست:
مثلا ماه های 7 و 8 میلادی (جولای و اگوست) 31 روزه ان ولی ماه های 7 و 8 ایرانی (مهر و آبان) 30 روزه
یا ماه 2 میلادی (فوریه) 28 یا 29 روزه است ولی ماه 2 ایرانی (اردیبهشت) همیشه 31 روزه است.

حالا اگر شما تاریخ قرارداد رو مثلا 30 اردیبهشت بذارین اون تابع DateAdd حتما خطا میگیره.

برای حل این مشکل 2 راه دارین:
1- در همین توابع کمکی تاریخ ایرانی که استفاده کردین بگردین ببینین تابع معادل داره یا نه و جایگزین کنین.
اگر نداشته باشه باید خودتون یکی بنویسین.

2- همون تابع DateAdd رو استفاده کنین، ولی تاریخ قرارداد رو بر اساس روز اول ماه بهش بدین
و بعد تاریخ بدست آمده رو با روز واقعی تاریخ قرارداد جمع کنین.

سلام دوست عزیز

ممنون می‌شم در رابطه با راه حل دوم (همون تابع DateAdd رو استفاده کنین، ولی تاریخ قرارداد رو بر اساس روز اول ماه بهش بدین
و بعد تاریخ بدست آمده رو با روز واقعی تاریخ قرارداد جمع کنین) یک مثال بزنید.

سلام دوباره

اجازه بدین اول این توابعی رو که برای تاریخ ایرانی استفاده کردین یک نگاهی بندازم
بعد تابعی رو نیاز دارین براتون آماده میکنم و روش کار رو هم توضیح میدم.

ممکنه یکی دو روزی زمان ببره.