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