VBA Now işlevi geçerli sistem tarihini ve saatini döndürür.
Now
Now işlevi tarafından döndürülen tarihi A1 hücresinde saklayalım:
Sub NowExample1()
Range("A1") = Now
End Sub
Now fonksiyonunun döndürdüğü tarihi metin formatında görüntüleyelim:
Sub NowExample2()
MsgBox Format(Now, "d mmmm yyyy hh:nn") 'İade, örneğin: 2 Kasım 2020 13:08
End Sub
İşlemi yalnızca saatin en az 17:00 olması ve hafta içi bir gün olması durumunda gerçekleştireceğiz:
Sub NowExample3()
If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then
MsgBox "Çalışma günü neredeyse bitti!"
End If
End Sub