UnitQESBPCSDateTime
DeclarationFunction IsPMNow: Boolean;
CategoryDate/Time ComparisonImplementation
function IsPMNow: Boolean; begin Result := not IsAMNow; End;