type TExtendedDateTime = class(TDateTime)
  public
    function bIsBusinessDay(): Boolean;
end;