Sub Activity_Create(FirstTime As Boolean)
Dim t As Long = Add30Minutes("07:45")
If t > 0 Then
Log(DateTime.Time(t))
End If
End Sub
Sub Add30Minutes(s As String) As Long
DateTime.TimeFormat = "HH:mm"
Try
Dim t As Long = DateTime.TimeParse(s)
Dim p As Period
p.Minutes = 30
t = DateUtils.AddPeriod(t, p)
Return t
Catch
Log("Invalid string.")
Return 0
End Try
End Sub