vba - 在 VBA 数组中存储时间数组

Question

我想在 VBA 中存储一系列时间，就像这样，但 VBA 拒绝。

Dim timeA() As Variant
timeA = Array(01:42:32.75, 02:26:34.22, 05:03:23.54)

相反，我必须像这样将它存储为串行。

Dim timeA() As Variant
timeA = Array(0.0712123842592593, 0.101784953703704, 0.21068912037037)

我该怎么做才能将时间存储在 hh mm ss 中。短信？

Answer 1

试试这个：

Dim timeA() As Variant
timeA = Array(#01:42:32#, #02:26:34#, #05:03:23#)

不幸的是，这不适用于几分之一秒。

Answer 2

试试这个，有用吗？

Dim timeA() As Variant
timeA = Array("01:42:32.75", "02:26:34.22", "05:03:23.54")

Answer 3

Timeserial 会将小时、分钟和秒转换为时间，但它不处理毫秒。如果你不需要毫秒，你可以使用

Sub storetime()

    Dim vaTime As Variant
    Dim i As Long

    vaTime = Array(TimeSerial(1, 42, 32.75), TimeSerial(2, 26, 34.22), TimeSerial(5, 3, 23.54))

    For i = LBound(vaTime) To UBound(vaTime)
        Debug.Print Format(vaTime(i), "hh:mm:ss")
    Next i

End Sub

您可以添加 ms 喜欢

vaTime = Array(TimeSerial(1, 42, 32) + (0.75 / 24 / 60 / 60), TimeSerial(2, 26, 34) + (0.22 / 24 / 60 / 60), TimeSerial(5, 3, 23) + (0.54 / 24 / 60 / 60))

检查这些值似乎可行，但我无法显示毫秒，所以我不确定它对你有什么好处。