Sub 弹出窗口显示当前日期和时间并精确到毫秒()
MsgBox Application.Text(Now(), "yyyy/mm/dd hh:mm:ss:") & Application.Text((Timer - Int(Timer)) * 1000, "000")
End Sub
Sub 弹出窗口显示当前日期和时间并精确到秒()
MsgBox Application.Text(Now(), "yyyy/mm/dd hh:mm:ss")
End Sub
使用微信扫描二维码后
点击右上角发送给好友