Sub AddTime(OriginalTime As EditText,HoursToAdd As Int,MinutesToAdd As Int,SecondsToAdd As Int) As EditText
Dim Hours As Long
Dim Minutes As Long
Dim Seconds As Long
Dim OldTime As Long
Dim NewTime As EditText
If(OriginalTime.Text <> "") Then
NewTime.Initialize("")
Hours = DateTime.TicksPerHour * HoursToAdd
Minutes = DateTime.TicksPerMinute * MinutesToAdd
Seconds = DateTime.TicksPerSecond * SecondsToAdd
OldTime = DateTime.TimeParse(OriginalTime.Text)
NewTime.Text = DateTime.Time(OldTime+Hours+Minutes+Seconds)
Return NewTime
Else
ToastMessageShow("No time to change",False)
Return OriginalTime
End If
End Sub