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