excel - 在 Debug.Print 中返回 5 位日期而不格式化单元格

Question

背景:

我希望从格式化为显示日期的单元格中获取 5 位日期。 5 位日期只能是立即窗口(通过 debug.print)。

我的测试结果位于脚本部分(底部)。

根据我所做的测试，我有一种感觉，答案将涉及 datediff()+2 ，但我不明白为什么需要 +2 并且不想这样做以后如果有错的话补充一下。

<小时/>

问题:

我似乎无法通过 Debug.Print 显示正确的 5 位日期(以“常规”格式显示)。

<小时/>

问题:

如何在不首先转换单元格的 .numberformat< 的情况下，将 5 位日期(通常以常规范式显示)显示在立即窗口 (debug.print) 中？

<小时/>

脚本:

Dim rng As Range, d1 As String, d2 As String
Set rng = Cells(1, 1) 'value = 20190101

Debug.Print Format(rng.Value, "@") 'returns 20190101
Debug.Print rng.NumberFormat = "General" 'returns "false"
Debug.Print Format(rng.value, "General") 'returns "Ge0oral" due to the "n" being recognized for a format

d1 = "1900/01/01"
d2 = rng.Value
Debug.Print 40729 + DateDiff("d", d1, d2) 'returns 84195
Debug.Print DateDiff("d", d1, d2) 'returns 43466

rng.NumberFormat = "General"
Debug.Print rng.Value 'returns 43468, but required formatting the cell

Answer 1

Range.Value2不使用 Date 类型，因此您只需 Debug.Print rng.Value2。