This article is mainly on the DelphiXE8 system.dateutils unit in the range checking functions part of the function to invoke the example and the explanation, if there is no place to hope that you can put forward, I will correct!
The functions in this section need to pass in three parameters, namely the Anow:tdatetime type, the start time, the Athen:tdatetime type, the cutoff time, the Aparams:integer or Int64 type, and the range value.
The function of this part achieves approximately the same effect, both the incoming start time and the cutoff time, plus a range value, which determines whether the difference between the start time and the cutoff time is within the specified range, and returns true if within the specified range if the return false! is not within the specified range.
For details, please move to the source code example
System.dateutils Range Checking functions Partial functions example and description