VBA десятичного> 1,0 до времени чч: мм: сс

Question

Я делаю несколько вычислений в рабочем листе, начиная с ячейки с форматом и значением, как это:

A1 = 00:30:00

в другой камере я разделить эти 25 минут на 3 в формуле:

А2 = А1/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 

, как показано на обоих панели формул и клетки: