نمایش تاریخ (Date)

با استفاده از تابع Date

این تابع، تاریخ سیستم را در اختیار شما قرار میدهد و فاقد هرگونه آرگومان است.

در فرم خود یک Command و یک Label قرار دهید، و در ماژول کد Command برنامه را به صورت زیر بنویسید:

Private Sub Command1_Click()
Label1.Caption = Date
End Sub

و یا با استفاده از دستور Print کد را به صورت زیر تغییر دهید:

Private Sub Command1_Click()
Print Date
End Sub

توجه کنید که اگر در کدنویسی برنامه ای از علامت(?) استفاده شد، علامت ? به معنی Print میباشد.

مثال:

Private Sub Command1_Click()
? Date
End Sub