在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) 

我能做些什麼來存儲時間以毫米爲單位。 MSMS？

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)) 

檢查這些值好像它的工作原理，但我不能讓毫秒來顯示，所以我不確定你有什麼好處。