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