VBA小數> 1.0至時間爲hh：mm：ss格式

Question

我做工作表中的幾個計算從與格式和值這樣的單元格開始：

A1 = 00:30:00

在另一個小區我由3在公式中劃分那些25分鐘：

A2 = A1/3 = 10時45分00秒

當執行VBA模塊是這樣的：

t_weld = Sheets("TIME").Range("A2").Value 

「t_weld」變量的值是「0.447916」。加上這個變量並與另一個變量相乘後，最終值大於「1.0」。 hh：mm：ss格式的結果不會超過24小時返回值，因此當小數中的值大於1.0（超過24小時）時，它將從00:00:00開始。

我需要的是格式化該值，以顯示像這樣的結果48:35:00。

任何想法？謝謝！

Answer 1

可以超過24個小時，這一點：如在這兩個公式欄和單元

Sub dural() 
    x = 1.23456789 
    With ActiveCell 
     .Value = x 
     .NumberFormat = "[hh]:mm:ss" 
    End With 
End Sub 

：