Sub YesterdayAt (Hours As Int) As Long
Dim p1 As Period
p1.Days = -1
Dim yesterday As Long = DateUtils.AddPeriod(DateTime.Now, p1)
Return DateUtils.SetDateAndTime(DateTime.GetYear(yesterday), _
DateTime.GetMonth(yesterday), DateTime.GetDayOfMonth(yesterday), Hours, 0, 0)
End Sub