Sub Activity_Create(FirstTime As Boolean)
Dim s As String = "2013-08-14 14:00:00"
DateTime.DateFormat = "yyyy-MM-dd"
DateTime.TimeFormat = "HH:mm:ss"
Dim i As Int = s.IndexOf(" ")
Dim ticks As Long = DateTime.DateTimeParse(s.SubString2(0, i), _
s.SubString2(i + 1, s.Length))
Dim p As Period
p.Days = 1
Dim tomorrow As Long = DateUtils.AddPeriod(ticks, p)
Log(DateUtils.TicksToString(tomorrow))
End Sub