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