Now

|

Sub test()

    MsgBox Now() '現在の時刻

End Sub