UnitQESBPCSDateTime
DeclarationFunction IsMidnightNow: Boolean;
CategoryDate/Time ComparisonImplementation
function IsMidnightNow: Boolean; begin Result := Frac (Time) = 0.0; End;