UnitQESBPCSDateTime
DeclarationFunction IsMayNow: Boolean;
CategoryDate/Time ComparisonImplementation
function IsMayNow: Boolean; begin Result := Date2Month (Date) = 5; End;