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