Dim intHours As Int = 10
Dim intMinutes As Int = 30
Dim IntSeconds As Int = 0
DateTime.TimeFormat="HH:mm:ss"
Dim strHours As String = intHours
If strHours.Length=1 Then strHours="0" & strHours
Dim strMinutes As String = intMinutes
If strMinutes.Length=1 Then strMinutes="0" & strMinutes
Dim strtSeconds As String = IntSeconds
If strtSeconds.Length=1 Then strtSeconds="0" & strtSeconds
Dim strTime As String=strHours & ":" & strMinutes & ":" & strtSeconds
Dim longTime As Long=DateTime.TimeParse(strTime)
Log(longTime)
'or to schedule the start of service
Log(DateTime.Now + DateTime.TicksPerHour * intHours + DateTime.TicksPerMinute * intMinutes + DateTime.TicksPerSecond*IntSeconds)
Dim intHours As Int = 10
Dim intMinutes As Int = 30
Dim IntSeconds As Int = 0
DateTime.TimeFormat="HH:mm:ss"
Dim strHours As String = intHours
If strHours.Length=1 Then strHours="0" & strHours
Dim strMinutes As String = intMinutes
If strMinutes.Length=1 Then strMinutes="0" & strMinutes
Dim strtSeconds As String = IntSeconds
If strtSeconds.Length=1 Then strtSeconds="0" & strtSeconds
Dim strTime As String=strHours & ":" & strMinutes & ":" & strtSeconds
Dim longTime As Long=DateTime.TimeParse(strTime)
Log(longTime)
'or to schedule the start of service
Log(DateTime.Now + DateTime.TicksPerHour * intHours + DateTime.TicksPerMinute * intMinutes + DateTime.TicksPerSecond*IntSeconds)