مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[MoBiN.R]

دوستان دوباره سلام
من هي ميرم و ميام و يه چيز جديد مي خوام بايد ببخشيد.
هر كي بلده كمك كنه. توي برنامه نويسي به جايي رسيدم كه مي خوام دوتا تاريخ رو بگيره مثلاً 01/01/1388 و تاريخ پايان 13/12/1388 و تعداد ماه ها و روزها رو اينطوري محاسبه كنه و بگه.
12 ماه
13 روز
اگه توضيحات اضافي خواستين بگين بيشتر توضيح بدم.
در ضمن از آقاي مبين كه خيلي خيلي به من توي برنامه نويسي كمك كردن تشكر مي كنم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
يا علي

با استفاده از تابع DateDiff می تونید به راحتی تارخ و زمان را از هم جمع وتفریق کنید
شکل کلی تابع

mystring = DateDiff(Interval,Date1, Date2)

Interval مقدار برگشتی تابع را مشخص می کند که در زیر اورده شده

"yyyy" = سال
"m" = ماه
"d" = روز
"h" = ساعت
"n" = دقیقه
"s" = ثانیه

همشیه مقدار date1 از مقدار date2 کم می شود مثال :

mystring = DateDiff("yyyy", "1386/11/1", "1388/11/1")

مقدار 2 در mystring ذخیره می شود برای زمان نیز به همین صورت .

برای کار با اختلاف ساعت :

از سه مقدار interval زیر برای جمع و تفریق استفاده می شه
"h" = ساعت
"n" = دقیقه
"s" = ثانیه

بدست آوردن اختلاف بر حسب ساعت

myvalue = DateDiff("h", "10:50:11", "11:20:10")
مقدار برگشتی 1

بدست آوردن اختلاف بر حسب دقیقه

myvalue = DateDiff("n", "11:00:00", "12:20:00")
مقدار برگشتی 80

بدست آوردن اختلاف بر حسب ثانیه

myvalue= DateDiff("s", "12:00:00", "12:01:10")
مقدار برگشتی 70

باز هم توجه کنید که همیشه مقدار date1 از مقدار date2 کسر می شود
موفق باشید