Visual Basic Date and Time Function : TimeSerial

Purpose : The TimeSerial function converts the values of an indicated time to a Visual Basic Date Data type

Syntax :
TimeSerial ( hour% , minute% , second% )

hour% : A number or expression that evaluates to a number between 0 and 23 inclusive
minute% : A number or expression that evaluates to a number between 0 and 59 inclusive
second% : A number or expression that evaluates to a number between 0 and 59 inclusive

Option Explicit

Private Sub Command1_Click()

Dim BeginHour%, EndHour%, BeginMinute%, EndMinute%

Dim BeginSecond%, EndSecond%

Dim EndTime, BeginTime

Start:

On Error GoTo NotTime

If Text1.Text = "" Then GoTo EnterTime

BeginTime = TimeValue(Text1.Text)

BeginHour = Hour(BeginTime)

EndHour = Val(Text2.Text)

BeginMinute = Minute(BeginTime)

EndMinute = Val(Text3.Text)

BeginSecond = Second(BeginTime)

EndSecond = Val(Text4.Text)

EndTime = TimeSerial(BeginHour + EndHour, _

BeginMinute + EndMinute, _

BeginSecond + EndSecond)

Label1.Caption = Format$(EndTime, "hh:mm:ss")

Exit Sub

EnterTime:

MsgBox "Please Enter a value in each box."

Exit Sub

NotTime:

If BeginSecond + EndSecond > 60 Then

EndSecond = EndSecond - 60

EndMinute = EndMinute + 1

ElseIf BeginMinute + EndMinute > 60 Then

EndMinute = EndMinute - 60

EndHour = EndHour + 1

ElseIf BeginHour + EndHour > 24 Then

EndHour = EndHour - 24

Else

MsgBox "Please Enter a value Time."

Text1.Text = ""

End If

End Sub