Функция Partition
Partition(Number,Start,Stop,Interval)
Функция служит для определения числовой оси, в который попадает заданное число. Применяется в задачах статистической обработки, для построения гистограмм
Возвращаемое значение
Возвращает значение типа Variant(String), указывающее положение числа в вычисляемом наборе диапазонов. Возвращаемая строка состоит из двух полей, разделенных двоеточием. Каждое поле содержит число символов, на единицу большее числа цифр в Stop, выводимые числа выравниваются по правому краю поля. Если любой из аргументов имеет значение Null, возвращается значение Null
Параметры
Функция содержит именованные аргументы
Number |
Обязательный аргумент - целое число, для которого проверяется положение относительно набора диапазонов |
Start |
Обязательный аргумент - целое число, задающее начало набора диапазонов. Это число должно быть неотрицательным |
Stop |
Обязательный аргумент - целое число, задающее конец набора диапазонов. Это число должно быть больше, чем значение Start |
Interval |
Обязательный аргумент - целое число, задающее размер каждого диапазона в наборе диапазонов от Start до Stop. Это число не может быть меньше 1 |
Пример
Sub Partition_example()
'Функция вернет диапазон, к которому относится выбранное число
Dim Month As Byte
Dim Quartal As String
Dim Comm As String
Month = 9 'Указываем месяц для проверки
Quartal = Partition(Month, 1, 12, 3)
Comm = WorksheetFunction.Ceiling(Month / 3, 1)
MsgBox "Выбранный месяц относится к месяцам: " & Quartal & " (" & Comm & " -й квартал)"
End Sub
Категория
Функции обработки строк |