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