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