Option Explicit Sub TimeRightNow() Dim T as Date //Declare Variable T = now //Give Variable T return Value of now function MsgBox Format(T, "mm-dd-yyyy mm:hh") //Display Formatted Date End Sub
Option Explicit Sub TimeRightNow() Dim T as Date //Declare Variable T = now //Give Variable T return Value of now function MsgBox Format(T, "mm-dd-yyyy mm:hh") //Display Formatted Date End Sub