Sub abc()
Dim a, b As String
a = Format(Date, "yyyy年m月d日") '当前年月日
b = Format(Time, "hh:mm") '当前时间
MsgBox a & b '显示日期时间
End Sub
是这个意思吗?又修改了一下,看看吧
MsgBox Application.Text(Now(), "yyyy/mm/dd hh:mm:ss:") & Application.Text((Timer - Int(Timer)) * 1000, "000")
VBA代码粘过来直接用,
得出来的时间
年/月/日 时:分:秒:毫秒
2019/01/31 11 :50 :02 :250