我是 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
你走在正确的道路上,但过于复杂......
Result = TotalHours + ((StartTime + EndTime) * 24)
给人Result
的100
。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句