Sub MinutesTillMidnight As Int
Dim midnight As Long = DateUtils.SetDate(DateTime.GetYear(DateTime.Now), _
DateTime.GetMonth(DateTime.Now), DateTime.GetDayOfMonth(DateTime.Now))
midnight = DateTime.Add(midnight, 0, 0, 1)
Dim p As Period = DateUtils.PeriodBetweenInDays(DateTime.Now, midnight)
Return p.Hours * 60 + p.Minutes
End Sub