Sub Activity_Create(FirstTime As Boolean)
Dim s As String = "2013-11-26 00:00:00"
DateTime.DateFormat = "yyyy-MM-dd hh:mm:ss"
Dim serverTime As Long = DateTime.DateParse(s)
Log(DateUtils.TicksToString(serverTime))
Dim p As Period = DateUtils.PeriodBetweenInDays(DateTime.Now, serverTime)
Log(p)
End Sub