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