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