【水晶报表函数】将秒数格式化为天时分秒

[阿泰]

Basic语法

'############################
'函数名称：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

在公式中使用
Sec2Hour(参数)调用即可。

[阿泰]

发帖用，暂时锁定。