UnitQESBPCSDateTime
DeclarationFunction IsAMNow: Boolean;
CategoryDate/Time ComparisonImplementation
function IsAMNow: Boolean; begin Result := Frac (Time) < 0.5 End;