Printable View
تكه برنامه اي مي خواستم كه در آن دو label وجود داشته باشد كه در اولي تاريخ جاري سيستم موجود مي باشد. در اين برنامه با زدن يك كليد تاريخ يك ماه قبل را در label دوم بنويسد نسبت به تاريخ جاري و اگر براي ماه هاي 30 و 31 روزه هم اگر راهي هست در راستاي همين برنامه قرار بدين و براي هفته هم همينطور يعني تاريخ هفته قبل را نسبت به تاريخ جاري سيستم در آورد و در label دوم نمايش دهد. با تشكر...:13:
از تابع 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
لطفا بگو "NOW" و "Me" چي هست كه باهاش cls و print آوردي ممنون ميشم.
Now : زمان جاری سیستم رو برمیگردونه که ما اونو تو متغییر dtDate قرار دادیمنقل قول:
Me : به خود فرم اشاره داره یا همون Form1.Print هستش
cls : هم که فرم رو پاک میکنه
Print : روی فرم مینویسه
ممنون كارم راه افتاد .
ممکنه تابع یا اکتیو ایکسی رو معرفی کنید برای تبدیل تاریخ میلادی به شمسی ؟