4,816
社区成员
发帖
与我相关
我的任务
分享
'############################
'函数名称:Sec2Hour
'功能:将秒转换为天、小时、分、秒
'############################
Function Sec2Hour(x as number)
Dim v_sec as Number
Dim v_minute as Number
Dim v_hour as Number
Dim v_day as Number
Dim sRet as string
'取最后结余的秒
v_sec=x Mod 60
'取整,得到分钟数
v_minute= x \ 60
'取整,得到小时数
v_hour= x\3600
'取整,得到天数
v_day= x\(3600*24)
'再处理
v_minute=v_minute-v_hour*60
v_hour=v_hour-v_day*24
If v_sec>0 Then sRet= ToText(v_sec,0) & "秒"
If v_minute>0 Then sRet= ToText(v_minute,0) & "分钟" & sRet
If v_hour>0 Then sRet= ToText(v_hour,0) & "小时" & sRet
If v_day>0 Then sRet= ToText(v_day,0) & "天" & sRet
'返回值
Sec2Hour=sRet
End Function