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

参考上面的脚本，我百度的