Question

输入秒数,将它按小时、分钟、秒的形式来输出.例如输入24680 秒,则输出6小时51分20秒.

Answer 1

Private Sub Form_Load()

Dim H As Long, M As Long, S As Long

Dim SC As Long

SC = 24680

H = SC 3600

M = (SC - H * 3600) 60

S = SC - H * 3600 - M * 60

MsgBox H & "小时" & M & "分" & S & "秒"

End Su