vba - 使用 VBA Now 与 Now() 时的时间差异？

Question

需要了解为什么我会得到时差。
这是我的 VBA 代码:

    Public OHLCArray(1 To 481, 0 To 28, 0 To 3) As Single
    'debug stmt below
    Dim DebugTime As Double

    OHLCArray(1, 0, 3) = Now()
    'next 3 lines are debugging lines
    DebugTime = OHLCArray(1, 0, 3)
    Print #1, "Now()=" & DebugTime
    Print #1, Now & "Debug print line - (just before pushing"

以下是日志文件中的调试输出行:

    Now()=42527.4609375
    06/06/2016 11:01:00 AMDebug print line - (just before pushing

你知道，时间 0.4609375 = 11:03:45 AM；我期待 Now 在第二个 Print 语句中向我展示这一点，或者关闭不超过 2 秒左右。

我的问题:在上面的例子中，为什么我得到不同的时间？ now 和 now() 之间有区别吗？如上所示，这会影响时间的捕捉吗？

谢谢你的帮助。卡尔。

附言以下是上述行之前的 2 个调试输出行:

    06/06/2016 10:59:34 AM - Skipped ws_calculate routine - CurrentTimeID already processed - CurrentTimeID = 45
    06/06/2016 10:59:54 AM - Skipped ws_calculate routine - CurrentTimeID already processed - CurrentTimeID = 45

P.S.S.这是一个相关主题的链接 - 不确定它是否适用于我的问题: Postgres now() vs 'now' in function

P.S.S.谢谢维加德。在查看具有类似输出数据的其他日志文件后，可以确定我的困惑是由于两个错误引起的:a)在将新的单个数据移动到它之前，我没有将 DebugTime 重置为零(较小的小数位数来自哪里从单一覆盖到双重？)和b)您的观察，将单一数据类型转换为双重数据类型没有用，因为当它最初移动到我的数组时发生了完整日期数据的截断定义为单。我想我会将我的数组保持为单个数组，但是，当我的数组的 99.8% 可以正常定义为单个数组时，以避免将它的大小增加一倍。我可以在工作表的标题中接受最多大约 2 分钟的时间间隔(当数组传输到它时)。我了解到，在大多数应用程序中将日期/时间数据移动到 Single 数据类型是不够的。数据类型应为 Double 或 DateTime。

P.S.S.最后:
今天(星期三，上​​午 11 点左右)运行的带有调试语句的逻辑向我展示了以下内容:
OHLCArray(1, 0, 3) = 现在()
OHLCArray 元素为 Single 将 date.time 捕获为 42529.46。然而，Now() 是 42529.45905067(相当于上午 11:01:02)，这出现在我的 print.debug 和打印日志文件中(正确)。当 now 被类型转换时，它四舍五入到 0.46。
调试时间 = OHLCArray(1, 0, 3)
当数组元素被强制转换为 DebugTime 时，额外的数字被拾取(错误地)。调试时间 = 42529.46093750。这转换为上午 11:03:45。这也是它变得有趣的地方。当我稍后将该数组元素 (42529.46) 移动到我的 excel 工作表(反射(reflect)完整数组的工作表)时 - 一个被格式化为仅将数字显示为时间的单元格，我在工作表中得到 11:03:45am。所以这意味着工作表中的单元格接收数字的方式与语句 DebugTime = OHLCArray(1, 0, 3) 完全相同。因为记住，数组元素是 42529.46。 0.46 转换为上午 11:02:24。

感谢 VeGard 的所有额外努力。我希望此后续内容有助于让您更深入地了解 EXCEL 和 VBA 的一些不那么明显的行为方式。正如我经常对不懂计算机的 friend 说的那样:“计算机永远不会出错!”

Answer 1

任何使用 Single 的实例在日期的上下文中给你的正确答案是一个极端的巧合。

为了进一步说明为什么，基于 Gary 的回答，我反转了您的代码，使数组声明为 Double - 当我们想要比较实际正确的 Double 时，这会更容易。与 Single 相比-cast-to- Double这将是不正确的。

Sub testTime()
    Dim OHLCArray(1 To 481, 0 To 28, 0 To 3) As Double
    'debug stmt below
    Dim DblTime As Double, SngTime As Single

    OHLCArray(1, 0, 3) = Now()
    'next 3 lines are debugging lines
    DblTime = OHLCArray(1, 0, 3)
    SngTime = OHLCArray(1, 0, 3)

    Debug.Print "Doubletime: " & DblTime
    Debug.Print "Singletime: " & SngTime
    Debug.Print "             Date                  Double             Single     Double(single2)"
    Debug.Print "Singletime = " & CDate(SngTime) & " - " & CDbl(SngTime) & "    - " & CSng(SngTime) & " - " & CDbl(SngTime2)
    Debug.Print "Doubletime = " & CDate(DblTime) & " - " & CDbl(DblTime) & " - " & CSng(DblTime)
    Debug.Print "Now()      = " & Now() & " - " & CDbl(Now()) & " - " & CSng(Now())
    Debug.Print "Now        = " & Now & " - " & CDbl(Now) & " - " & CSng(Now)
End Sub

现在，让我们回顾一下输出。我已经运行了几次，这清楚地说明了问题。观察“Double”列的第一行发生了什么(或者更确切地说，没有发生什么)，这是我们将单转换为双的地方，并将其与正确的 Double 进行比较在下一行:

Doubletime: 42528,3991666667
Singletime: 42528,4
             Date                  Double             Single
Singletime = 07.06.2016 09:33:45 - 42528,3984375    - 42528,4
Doubletime = 07.06.2016 09:34:48 - 42528,3991666667 - 42528,4
Now()      = 07.06.2016 09:34:48 - 42528,3991666667 - 42528,4
Now        = 07.06.2016 09:34:48 - 42528,3991666667 - 42528,4

Doubletime: 42528,3995138889
Singletime: 42528,4
             Date                  Double             Single
Singletime = 07.06.2016 09:33:45 - 42528,3984375    - 42528,4
Doubletime = 07.06.2016 09:35:18 - 42528,3995138889 - 42528,4
Now()      = 07.06.2016 09:35:18 - 42528,3995138889 - 42528,4
Now        = 07.06.2016 09:35:18 - 42528,3995138889 - 42528,4

Doubletime: 42528,3996180556
Singletime: 42528,4
             Date                  Double             Single
Singletime = 07.06.2016 09:33:45 - 42528,3984375    - 42528,4
Doubletime = 07.06.2016 09:35:27 - 42528,3996180556 - 42528,4
Now()      = 07.06.2016 09:35:27 - 42528,3996180556 - 42528,4
Now        = 07.06.2016 09:35:27 - 42528,3996180556 - 42528,4

Doubletime: 42528,3998726852
Singletime: 42528,4
             Date                  Double             Single
Singletime = 07.06.2016 09:33:45 - 42528,3984375    - 42528,4
Doubletime = 07.06.2016 09:35:49 - 42528,3998726852 - 42528,4
Now()      = 07.06.2016 09:35:49 - 42528,3998726852 - 42528,4
Now        = 07.06.2016 09:35:49 - 42528,3998726852 - 42528,4

Doubletime: 42528,4045486111
Singletime: 42528,41
             Date                  Double             Single
Singletime = 07.06.2016 09:45:00 - 42528,40625      - 42528,41
Doubletime = 07.06.2016 09:42:33 - 42528,4045486111 - 42528,41
Now()      = 07.06.2016 09:42:33 - 42528,4045486111 - 42528,41
Now        = 07.06.2016 09:42:33 - 42528,4045486111 - 42528,41

请注意，对于所有使用 Single 的日期转换，时间戳实际上在很长一段时间内都是静态的，因为数据类型不能支持足够的数字。

将其转换为 Double 的事实产生更多的数字并不一定是正确的——它变得稍微准确一些，但仍然不正确。

所以问题似乎不在于 Now或 Now() !如我的示例所示，只要使用正确的数据类型，它们都会产生正确的结果。

您的第一个问题，不正确的时间戳，是由数组是 Single 引起的。而不是 Double .

您的第二个问题完全是其他问题，也许在您的代码中。要么你重载 Now或者更有可能， Print在运行时做一些时髦的事情。尝试在 Print 前加上前缀 Debug.Print "Now: " & Now 的声明然后根据 documentation 将结果与日志文件进行比较，或者更好。 ，改变这个:
Print #1, Now & "Debug print line - (just before pushing"
对此:
Print #1, CDate(Now) & "Debug print line - (just before pushing"

Date data is written to the file using the standard short date format recognized by your system. When either the date or the time component is missing or zero, only the part provided gets written to the file.

编辑:

至于类型转换 Single时出现的神秘额外数字至 Double ，这不是编译器完成的近似值，正如我之前错误猜测的那样。这是数字表示方式的已知副作用，显然是 common topic在计算机科学中。

对于数值精度，使用 Decimal datatype .

MSDN 专门在 Visual Basic 上下文中详细讨论了浮点精度。

这里: https://msdn.microsoft.com/en-us/library/system.double.aspx?cs-save-lang=1&cs-lang=vb#Conversions

Type conversion. The Double structure provides an explicit interface implementation for the IConvertible interface, which supports conversion between any two standard .NET Framework data types. Language compilers also support the implicit conversion of values of all other standard numeric types to Double values. Conversion of a value of any standard numeric type to a Double is a widening conversion and does not require the user of a casting operator or conversion method.

However, conversion of Int64 and Single values can involve a loss of precision.

The problem of precision most frequently affects Single values that are converted to Double values.

在这里: https://msdn.microsoft.com/en-us/library/system.single.aspx

For example, 2/10, which is represented precisely by .2 as a decimal fraction, is represented by .0011111001001100 as a binary fraction, with the pattern "1100" repeating to infinity. In this case, the floating-point value provides an imprecise representation of the number that it represents. Performing additional mathematical operations on the original floating-point value often increases its lack of precision. For example, if you compare the results of multiplying .3 by 10 and adding .3 to .3 nine times, you will see that addition produces the less precise result, because it involves eight more operations than multiplication. Note that this disparity is apparent only if you display the two Single values by using the "R" standard numeric format string, which, if necessary, displays all 9 digits of precision supported by the Single type.