将双倍转换为时间（小时和分钟）

Question

我是VBA程序的新手，我遇到了一个小转换，我有一个输入数据为“double”，我有另外2个值，如时间格式。我希望以时间格式添加这个双倍，并将其作为时间输出

Totalhours  = 99  (double)
Starttime = 00:30:00 (hh:mm:ss)
Endtime = 00:30:00 (hh:mm:ss)
Result = 100 hours

我想以时间格式添加Totalhours + Starttime + Endtime。我尝试了所有可能的方式，我没有得到答案。

代码：

 Totalinthrs = Int(Nuday * Worksheets("qwer").Range("C2").Value)
 Totalhours = Int(Totalinthrs + Starttime)
 Totalhours = Totalinthrs * 24
 Worksheets("qwer").Range("C5").Value = TotHours
 Totalhours = CDate(Totalhours)
 Totalhours = TimeValue(Totalhours)
 Totalhours = TotHours + Starttime + Endtime

Answer 1

你走的是正确的道路，但过于复杂......

Result = TotalHours + ((StartTime + EndTime) * 24)

提供Result 100。