Sub Time_In_Range(dt1 As Long, dt2 As Long, maxRange As Int) As Boolean
Dim p As Period = DateUtils.PeriodBetween(dt1, dt2)
Dim diff As Long = Abs(p.Hours) * 60 + Abs(p.Minutes)
If Min(diff, 1440 - diff) <= maxRange Then
Return True
Else
Return False
End If
End Sub