با استفاده از تابع Now
این تابع میتواند در هر لحظه تاریخ و ساعت جاری سیستم را در اختیار شما قرار دهد . مقدار بازگشتی این تابع از نوع تاریخ است و فاقد آرگومان میباشد.
ابتدا در فرم یکCommand و یک Label قرار دهید و سپس برای نمایش تاریخ و ساعت جاری سیستم در ماژول کد Command کد زیر را بنویسید:
Private Sub Command1_Click()
Label1.Caption = Now
End Sub
و یا با استفاده از دستور Print کد را به صورت زیر تغییر دهید:
Private Sub Command1_Click()
Print Now
End Sub