时间问题

Question

变量：t，h（时），m（分），s（秒）
t为秒数
当t=3661秒时
则h=1,m=1,s=1也就是一小时一分钟一秒，如何将3661转换到三个变量中？

Answer 1

t = 3661
h = t \ 3600
m = (t Mod 3600) \ 60
s = (t Mod 3600) Mod 60
MsgBox "h=" & h & vbCrLf & "m=" & m & vbCrLf & "s=" & s

Answer 2

H=t\3600
m=t\60-h*60
s=t mod 60

Answer 3

    dim dt as date
    dim h as long,m as long,s as long
    dim t as long    t=3661
    dt=timeserial(0,0,t)
    h=hour(dt)
    m=minute(dt)
    s=second(dt)

Answer 4

经鉴定，可以结帖了。个人比较欣赏VBMAN的答案。