永发信息网

求一个asp 分钟转小时、天数的函数

答案:1  悬赏:40  手机版
解决时间 2021-04-04 11:30
  • 提问者网友:蓝琪梦莎
  • 2021-04-03 11:44
求一个asp 分钟转小时、天数的函数
最佳答案
  • 五星知识达人网友:上分大魔王
  • 2021-04-03 13:15
Function CSec(MSecond)
Dim M,H,D

M1 = Int(MSecond / 60)
M2 = M1 * 60
IF M2 > MSecond Then
M = M1 - 1
Else
M = M1
End IF
S0 = Int(Msecond Mod 60)

H1 = Int(M/60)
H2 = H1 * 60
IF H2 > M Then
H = H1 - 1
Else
H = H1
End IF
M0 = Int(M Mod 60)

D1 = Int(H/12)
D2 = D1 * 12
IF D2 > H Then
D = D1 - 1
Else
D = D1
End IF
H0 = Int(H Mod 12)

CSec = D & "天" & H0 &"小时" & M0 &"分钟" & S0 & "秒"
End Function

测试结果通过Win7 IIS 6.5

你可以按你的需要修改函数。——由于整除的方法可能会遇到溢出的结果,所以用这种方法,笨了点,但够用了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯