Asp 时长转换/时间转换，Asp 把时长转换为*天*时*分*秒

以下是引用片段：

<%
Function TimeToData(T)                       '时长转换/时间转换
    Dim D, S, F, M                           '天,时,分,秒
    M = Int(T / 1000)                        '总秒数
    If M > 86400 Then
        D = Int(M / 86400)
        M = M - D * 86400                    '减去天数后剩下的秒数
        D= D & "天"
    End If
    If M > 3600 Then
        S = Int(M / 3600)
        M = M - S * 3600                     '减去小时后剩下的秒数
        S = S & "时"
    End If
    If M > 60 Then
        F = Int(M / 60)
        M = Int(M - F * 60)                  '减去分钟后剩下的秒数
        F = F & "分"
    End If
    TimeToData = D & S & F & M & "秒"
End Function

Response.Write TimeToData(1000000000000)
%>