Private Sub AppStart(Form1 As Form, Args() As String)
DateTime.DateFormat="yyyy-MM-dd"
Private wrk_datelong1, wrk_datelong2 As Long
wrk_datelong2 = DateTime.DateParse("1984-10-25")
wrk_datelong1 = DateTime.DateParse("1984-10-26")
Log("1984-10-26 " & wrk_datelong1 & " " & (wrk_datelong1 - wrk_datelong2))
wrk_datelong2 = wrk_datelong1
wrk_datelong1 = DateTime.DateParse("1984-10-27")
Log("1984-10-27 " & wrk_datelong1 & " " & (wrk_datelong1 - wrk_datelong2))
wrk_datelong2 = wrk_datelong1
wrk_datelong1 = DateTime.DateParse("1984-10-28")
Log("1984-10-28 " & wrk_datelong1 & " " & (wrk_datelong1 - wrk_datelong2))
wrk_datelong2 = wrk_datelong1
wrk_datelong1 = DateTime.DateParse("1984-10-29")
Log("1984-10-29 " & wrk_datelong1 & " " & (wrk_datelong1 - wrk_datelong2) & " <<<<<<<<<")
wrk_datelong2 = wrk_datelong1
wrk_datelong1 = DateTime.DateParse("1984-10-30")
Log("1984-10-30 " & wrk_datelong1 & " " & (wrk_datelong1 - wrk_datelong2))
'StartMessageLoop
End Sub