Dim four As Long
Dim now As Long = DateTime.Now
four = DateUtils.SetDateAndTime(DateTime.GetYear(now), DateTime.GetMonth(now), _
DateTime.GetDayOfMonth(now),16, 0, 0)
If four < now Then
'skip to tomorrow
Dim p As Period
p.Days = 1
four = DateUtils.AddPeriod(four, p)
End If
Log(DateUtils.TicksToString(four))