VB输入秒数转换

输入秒数，转化成天，时，分，秒

Private Sub Command1_Click()
'a代表输入秒数
t代表天数
s1代表小时
f代表分钟
s代表秒
Dim a, t, s1, f, s As Double
a = Val(Text1.Text)      '获取天数，秒数转为天数
t = a \ 60 \ 60 \ 24'        获取小时，需要减去天数（转换为小时）
s1 = a \ 60 \ 60 - (t * 24)       '获取分钟，需要减去天数，小时数（天数 小时数转换为分钟）
f = a \ 60 - (t * 24 * 60) - (s1 * 60)      '获取秒数，需要减去天数，小时，分钟（天数，小时，分钟转换为秒）
s = a - (t * 24 * 60 * 60) -( s1 * 60 * 60) - (f * 60)
'输出
Label1.Caption = t & "天" & s1 & "时" & f & "分" & s & "秒"
End SubPrivate Sub Command1_Click()
'a代表输入秒数
't代表天数
's1代表小时
'f代表分钟
's代表秒
Dim a, t, s1, f, s As Double
a = Val(Text1.Text)      '获取天数，秒数转为天数
t = a \ 60 \ 60 \ 24'        获取小时，需要减去天数（转换为小时）
s1 = a \ 60 \ 60 - (t * 24)       '获取分钟，需要减去天数，小时数（天数 小时数转换为分钟）
f = a \ 60 - (t * 24 * 60) - (s1 * 60)      '获取秒数，需要减去天数，小时，分钟（天数，小时，分钟转换为秒）
s = a - (t * 24 * 60 * 60) -( s1 * 60 * 60) - (f * 60)
'输出
Label1.Caption = t & "天" & s1 & "时" & f & "分" & s & "秒"
End Sub

小时=天数24———–天数转为小时

分钟=小时60———–小时转为分钟

秒数=分钟*60———–分钟转为秒数

用整除而不是浮点除的原因是：举例：a=10000 ‘10000秒先用浮点除获取小时数、10000/60/60 除于分钟等于166.66666分钟，再除于时间，等于2.777777小时。这里的2是2小时，后面的0.77777就是需要下一步计算的分钟。在做的时候出现了很多不该犯的小问题，注意运算符的优先级，还有就是不要敲错变量！！！！！！把最后一步的s1敲成si 5555555555