输入如下代码试试就知道了
Sub test()MsgBox VBA.Now()MsgBox VBA.TimeMsgBox VBA.DateMsgBox Format(Now(), "aaaa")MsgBox Format(Date, "aaaa")End Sub