شمارش روز های بین دو تاریخ

[joker_pok]

سلام دوستان :

یه برنامه دارم وقتی برنامه اجرا شد تاریخ اون روز در برنامه ذخیره میشه مثلا 14/12/90 حالا میخوام 30 روز دیگه برنامه یه کاری انجام بده اینو چه جوری پیادش کنم ؟ ممنون دوستان

[just4froum]

با سلام :

شما تاریخ اولین روز را با استفاده از تابع Date گرفته و ذخیره می کنید.

بعد هربار که برنامه اجرا شد چک می کنید که آیا 30 روز گذشته یا نه به صورت زیر:

تاریخ ذخیره شده را با استفاده از Cdate به تاریخ تبدیل می کنید و در متغیری مانند m میریزید.

سپس از دستور زیر به راحتی استفاده می کنید :

if date = m + 30 then msgbox "30 Rooz Gozashte !!!"

[joker_pok]

میشه یه نمونه برنامه بزاری دوست عزیز

[just4froum]

بفرمایید این هم نمونه کد :

Private Sub Form_Load()
If Dir(App.Path & "\FirstRun.txt") = Empty Then
Open App.Path & "\FirstRun.txt" For Output As 1
Print #1, CStr(Date)
Close #1

MsgBox "Avalin Egra !!!", vbInformation
Else
Dim m As String
Dim d As Date
Open App.Path & "\FirstRun.txt" For Input As 1
Input #1, m
Close #1
d = CDate(m)

MsgBox (Date - d) & " Rooz Gozashte az avalin egra !!!", vbInformation

End If
End Sub

[joker_pok]

این برنامه قشنگ بود اما یک مشکلی داشت اونم اینکه اگه کاربر تاریخ رو برگردونه شمارش هم کم میشه من می خوام شمارش کم نشه اگه تاریخ بالا و پایین هم بشه واسه کانتر هیچ فرقی نداشته باشه متوجه منظور بنده شدین ؟

[just4froum]

از نظر من یا باید از طریق اینترنت باشه که بهترین راهه

یا باید کدی شبیه به این باشه که هر بار برنامه اجرا شد تاریخ ها را ذخیره کند و و اگر در تاریخ سیستم تغییری ایجاد شد متوجه شود و مبدا تاریخ را تغییر دهد.

[joker_pok]

خوب از طریق اینترنت چه جوری باید انجام بگیره کدی ، آموزشی چیزی هست دوستان ؟