محاسبه پایان خدمت سربازی در vb 6

[maxnet12]

سلام چطور میشه در vb 6 یک تاریخ اعزام خدمت سربازی رو وارد کرد مثلا 1396/03/19 و کسری بسیجی 5 ماه 20روز ماه مثلا خورده برنامه بیاد بگه پایان خدمت چه تاریخی است پایان خدمت محاسبه کند.


مثال من یه سربازی هستم تاریخ اعزام به خدمت 1396/03/19 و 5 ماه و 20 روز کسری بسیجی خوردم باید برنامه تاریخ پایان خدمت که 21 ماه بیاد تاریخ 1397/06/29 نمایش بده.
ممنون خیلی برام مهم هست .:قلب::قلب:

[vbhamed]

سلام
ابتدا با توجه به ماه اتمام خدمت باید حساب کنید چند روز کلا کسر میشه از خدمت، چون ماههای بهار و تابستان 31 روزه هستند و پاییز تا بهمن 30 روزه و اسفند هم 29 یا 30 روزه بسته به سال کبیسه
مثلا اگر تاریخ پایان خدمت در 15/3/1397 باشه و کسری دقیقا 5 ماه،

15 روز از برج 3 و
62 روز از برج 1 و 2 و
29 یا 30 روز از برج 12 سال 96 بسته به سال کبیسه بودن یا نبودن 96 و
30 روز از بهمن 96 و
15 روز از دی 96

کم میشه تا مجموعه بشه 5 ماه

البته ممکنه قانون اینو در نظر نگیره که بعضی ماهها 30 و بعضی 31 و بعضی 29 روزه هستن و بگه کلا 5 ماه برین عقب که در اونصورت کارتون راحت تره

بعد تاریخ پایان خدمت رو به میلادی تبدیل کنید و با تابع DateDiff تعداد روز کسری رو ازش کم کنید و تاریخ بدست اومده رو دوباره به شمسی تبدیل کنید

[maxnet12]

سلام
ابتدا با توجه به ماه اتمام خدمت باید حساب کنید چند روز کلا کسر میشه از خدمت، چون ماههای بهار و تابستان 31 روزه هستند و پاییز تا بهمن 30 روزه و اسفند هم 29 یا 30 روزه بسته به سال کبیسه
مثلا اگر تاریخ پایان خدمت در 15/3/1397 باشه و کسری دقیقا 5 ماه،

15 روز از برج 3 و
62 روز از برج 1 و 2 و
29 یا 30 روز از برج 12 سال 96 بسته به سال کبیسه بودن یا نبودن 96 و
30 روز از بهمن 96 و
15 روز از دی 96

کم میشه تا مجموعه بشه 5 ماه

البته ممکنه قانون اینو در نظر نگیره که بعضی ماهها 30 و بعضی 31 و بعضی 29 روزه هستن و بگه کلا 5 ماه برین عقب که در اونصورت کارتون راحت تره

بعد تاریخ پایان خدمت رو به میلادی تبدیل کنید و با تابع DateDiff تعداد روز کسری رو ازش کم کنید و تاریخ بدست اومده رو دوباره به شمسی تبدیل کنید

----
ممنون بی زحمت کدش رو میخوام ممنون.

[kitcat_m18]

از MEShamsiDate هم می تونی استفاده کنی
تاریخ شمسی رو برات می تونه بدون کار اضافه کم و زیاد کنه