Sub TimeToLaterTime (HoursToday As Int, MinutesToday As Int, _
HoursAfter As Int, MinutesAfter As Int, NumDays As Int) As Period
Dim now As Long = DateTime.Now
Dim TimeToday As Long = DateUtils.SetDateAndTime(DateTime.GetYear(now), DateTime.GetMonth(now), _
DateTime.GetDayOfMonth(now), HoursToday, MinutesToday, 0)
Dim p As Period
p.Days = NumDays
Dim After As Long = DateUtils.AddPeriod(now, p)
Dim TimeAfter As Long = DateUtils.SetDateAndTime(DateTime.GetYear(After), DateTime.GetMonth(After), _
DateTime.GetDayOfMonth(After), HoursAfter, MinutesAfter, 0)
Return DateUtils.PeriodBetweenInDays(TimeToday, TimeAfter)
End Sub