Excel VBAmacrosMsgBox自动将数字转换为科学记数法，我该如何解决这个问题？

我正在尝试将当前date转换为毫秒，以便将其与AD“LastLogon”时间戳进行比较。 问题是当前date自动变成科学记数法，而不是我所需要的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（）显示一个datecurrentDate是一个溢出。

如何在VBA中格式化date？