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 |
|