将高于24的小数转换为[hh]：mm：ss格式？

Question

我有一个大于24的整数，我想用日期格式切换它。我所能得到的只是一个错误的错误。

Dim ready_time() as Date

Dim time_calculator as Integer

这里我的代码会增加time_calculator

ready_time(i) = Format((time_calculator / 24), "[hh]:mm:ss")

如果time_calculator = 36，我想要36:00:00。该值将在以后使用，因此我不要使用TEXT / String函数。

感谢您的帮助，我现在试图解决这个问题5个小时！

Answer 1

根据我的评论：

Sub ttooo()

Dim t() As Double

ReDim t(1 To 2) As Double

t(1) = 36 / 24
t(2) = 23 / 24

Range("A1") = t(1)
Range("A2") = t(2)

Range("A1:A2").NumberFormat = "[hh]:mm:ss"

End Sub