Excel VBA宏MsgBox自动将数字转换为科学记数法，我该如何阻止它？

Question

我试图将当前日期设置为毫秒，以便将其与AD“LastLogon”时间戳进行比较。问题是当前日期自动变为科学记数而不是我需要的18位数字。如何强制它显示所有数字？

Dim currentDate
currentDate = Now * (8.64 * 10 ^ 11) + 109205
'MsgBox (DateAdd("d", -90, Now))
MsgBox (currentDate)

Answer 1

 MsgBox( Format(currentDate, "#0"))

或您喜欢的其他格式

Answer 2

Dim currentDate
currentDate = Now * (8.64 * 10 ^ 11) + 109205
'MsgBox (DateAdd("d", -90, Now))
MsgBox (Format(currentDate(), "MM dd, yyy"))
MsgBox (Format(Now(), "MM dd, yyy"))

Now（）显示日期 currentDate是一个过流。

How to format date in VBA?