Converts the time in Seconds to hh:mm:ss Format

by Sameet Natekar (6 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 29^th January 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
'The answer will be displayed in a message box.

Rate Converts the time in Seconds to hh:mm:ss Format



s = Text1.Text
sec = s Mod 60
If sec < 10 Then
sec = "0" & sec
End If
m = s \ 60
mins = m Mod 60
If mins < 10 Then
mins = "0" & mins
End If
hrs = m \ 60
If hrs < 10 Then
hrs = "0" & hrs
End If
MsgBox (hrs & ":" & mins & ":" & sec)
End Sub

Private Sub Form_Load()
Command1.Enabled = False
End Sub

Private Sub Text1_Change()
'This code is to prevent the user from making any invalid entries.
'He can enter only integers. no decimals or negative nos.
'The textbox has a Maxlenth of 9 characters.
n = Len(Text1.Text)
rt = 1
For i = 1 To n
x = Mid(Text1.Text, i, 1)
If Not (x >= 0 And x <= 9) Then
rt = rt * 0
End If
Next
If rt = 0 Or Text1.Text = "" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub

Download this snippet Add to My Saved Code

Converts the time in Seconds to hh:mm:ss Format Comments

No comments have been posted about Converts the time in Seconds to hh:mm:ss Format. Why not be the first to post a comment about Converts the time in Seconds to hh:mm:ss Format.

Converts the time in Seconds to hh:mm:ss Format

Converts the time in Seconds to hh:mm:ss Format Comments

Post your comment

Difficulty