Dim h, d, s
If Int(Text1.Text) >= 3600 Or Int(Text1.Text) Mod 3600 > 60 Or Int(Text1.Text) Mod 3600 < 60 Then
h = Int(Text1.Text) \ 3600
d = (Int(Text1.Text) Mod 3600) \ 60
s = (Text1.Text - (h * 3600 + d * 60))
End If
Label1.Caption = h & ":" & d & ":" & s
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。