'以对话框显示当前时间的时、分、秒
MsgBox "当前时间：" & Time & Chr(10) & _
"时：" & Hour(Time) & Chr(10) & _
"分：" & Minute(Time) & Chr(10) & _
"秒：" & Second(Time)
Sub test()
MsgBox Application.Text(Time(), "m:s")
End Sub
这就是当前系统时间的分和秒
你如果一定要用now()
代码也一样的
Sub test()
MsgBox Application.Text(Now(), "m:s")
End Sub
=MINUTE(NOW())&":"&SECOND(NOW())
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024