输出时间格式为 "hh:mm:ss" in vb

Question

所以我正在尝试将我的一些项目从 excel vba 转换为 vb。但是，在转换日期和时间戳时我遇到了困难。

所以：我有一个以秒为单位的数字，即：3878，我想在 vb 中显示为 "hh:mm:ss"。在 VBA 中，我会使用函数 .Format(time,"HH:MM:SS")，但这似乎不起作用。

如有任何帮助，我们将不胜感激。

谢谢菲利普

Answer 1

你可以尝试类似的方法:

intTotalSecs = 3878
MsgBox intTotalSecs & "(s) ===> " & ConvertTime(intTotalSecs),vbinformation,"output time format as hh:mm:ss"
'************************************************************
Function ConvertTime(intTotalSecs)
Dim intHours,intMinutes,intSeconds,Time
intHours = intTotalSecs \ 3600
intMinutes = (intTotalSecs Mod 3600) \ 60
intSeconds = intTotalSecs Mod 60
If intHours = 0 Then intHours = "0"&intHours 
If intMinutes = 0 Then intMinutes = "0"&intMinutes 
If intSeconds = 0 Then intSeconds = "0"&intSeconds 
ConvertTime = LPad(intHours) & " h : " & LPad(intMinutes) & " m : " & LPad(intSeconds) & " s"
End Function
'************************************************************
Function LPad(v) 
 LPad = Right("00" & v, 2) 
End Function
'************************************************************

输出时间格式为 "hh:mm:ss" in vb

output time format as "hh:mm:ss" in vb

vbscript