حساب کردن تاریخ یک ماه قبل

[vbiman]

تکه برنامه ای می خواستم که در آن دو label وجود داشته باشد که در اولی تاریخ جاری سیستم موجود می باشد. در این برنامه با زدن یک کلید تاریخ یک ماه قبل را در label دوم بنویسد نسبت به تاریخ جاری و اگر برای ماه های 30 و 31 روزه هم اگر راهی هست در راستای همین برنامه قرار بدین و برای هفته هم همینطور یعنی تاریخ هفته قبل را نسبت به تاریخ جاری سیستم در آورد و در label دوم نمایش دهد. با تشکر...:لبخندساده:

[__siavash__]

از تابع DateAdd میتونی استفاده کنی !


Private Sub Command1_Click()
Dim dtDate As Date
Me.Cls
' Get System Date/Time
dtDate = Now
Me.Print "dtDate = " & dtDate
Me.Print
Me.Print "DateAdd(""d"", 4, dtDate) = " & DateAdd("d", 4, dtDate) ' چهار روز بعد
Me.Print "DateAdd(""ww"", 1, dtDate) = " & DateAdd("ww", 1, dtDate) 'یک هفته بعد
Me.Print "DateAdd(""m"", 5, dtDate) = " & DateAdd("m", 5, dtDate) 'پنج ماه بعد
Me.Print "DateAdd(""m"", -1, dtDate) = " & DateAdd("m", -1, dtDate) 'یک ما قبل
End Sub