Sub Process_Globals
Private target As Long
Private timer1 As Timer
End Sub
Sub Globals
Dim lbl As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
target = DateUtils.SetDate(DateTime.GetYear(DateTime.Now) + 1, 1, 1)
timer1.Initialize("timer1", 1000)
End If
lbl.Initialize("")
Activity.AddView(lbl, 20dip, 20dip, 300dip, 100dip)
timer1.Enabled = True
End Sub
Sub Timer1_Tick
Dim p As Period = DateUtils.PeriodBetweenInDays(DateTime.Now, target)
lbl.Text = Format(p.Days) & " days, " & Format(p.Hours) & " hours, " _
& Format(p.Minutes) & " minutes, " & Format(p.Seconds) & " seconds"
End Sub
Sub Format(n As Int) As String
Return NumberFormat(n, 2, 0)
End Sub