Функции для работы с числовыми значениями
Функций для работы с числовыми значениями в VBA очень много. Используются они реже, чем строковые функции, но во многих ситуациях без них не обойтись. Еще один момент: если вы программируете на языке VBA, то, скорее всего, на вашем компьютере установлен Microsoft Office с Excel. В Excel есть свой собственный мощный набор встроенных функций для работы с числовыми значениями, которые вполне доступны из VBA. Если вы в моем списке не найдете ничего подходящего для вашей ситуации, возможно имеет смысл воспользоваться функциями Excel.
Кроме того, если в окне Надстройки (меню Сервис | Надстройки) установить флажок напротив строки Пакет анализа, в Excel будет добавлен дополнительный набор аналитических научных и финансовых функций, а если в том же окне установить флажок напротив Analysis ToolPak — VBA, то эти функции станут доступны из VBA (только внутри Excel, в котором установлена эта надстройка).
Далее приведены только универсальные функции VBA для работы с числовыми значениями. Эти функции доступны из любых приложений VBA.
- Abs() — эта функция возвращает абсолютное значение переданного ей числа (то же число, но без знака). Например, Abs(3) и Abs(−3) вернут одно и то же значение 3. Обычно используется тогда, когда нам нужно определить разницу между двумя числами, но при этом мы не знаем, какое число — первое или второе — больше. Результат вычитания может быть и положительным и отрицательным. Чтобы он был только положительным, используется эта функция.
- Int(), Fix() и Round() — позволяют по-разному округлять числа. Int() возвращает ближайшее меньшее целое, Fix() отбрасывает дробную часть, Round() округляет до указанного количества знаков после запятой. При этом Round() работает не совсем правильно, в чем легко убедиться:
MsgBox Round(2.505, 2)
Поэтому на практике для округления лучше использовать Format():
MsgBox Format(2.505, "#,##0.00")
- Rnd() и команда Randomize — используются для получения случайных значений (очень удобно, например, при генерации имен файлов). Обычный синтаксис при применении Rnd() выглядит так:
случайное _ число = Int(минимум + (Rnd() * максимум))
MsgBox (Int(1 + (Rnd() * 100)))
Однако перед вызовом функции Rnd() необходимо выполнить команду Randomize для инициализации генератора случайных чисел.
- Sgn() — позволяет вернуть информацию о знаке числа. Возвращает 1, если число положительное, −1, если отрицательное, и 0, если проверяемое число равно 0.
Без функций даты и времени обычно обойтись очень сложно. Самые важные функции VBA для работы с датой/временем приведены далее.
- Date(), Time(), Now() — возвращают соответственно текущую системную дату, текущее системное время и дату и время одновременно. Установить их можно при помощи одноименного соответствующего оператора, например, так:
Date = #5/12/2004#
- DateAdd() - добавляет к дате указанное количество лет, кварталов, месяцев и так далее до секунд.
- DateDiff() — возвращает разницу между датами (в единицах от лет до секунд).
-DatePart() — очень важная функция, которая возвращает указанную вами часть даты (например, только год, только месяц или только день недели).
- DateSerial() — создает значение даты на основе передаваемых символьных значений. То же самое делает функция DateValue(), но при другом формате принимаемых значений. Аналогичным образом (для времени) работают TimeSerial() и TimeValue().
- Day() (а также Year(), Month(), Weekday(), Hour(), Minute(), Second()) - специализированные заменители функции DatePart(), которые возвращают нужную вам часть даты.
- MonthName() — возвращает имя месяца словами по его номеру. Возвращаемое значение зависит от региональных настроек. Если они русские, то вернется русское название месяца.
- Timer() — возвращает количество секунд, прошедших с полуночи.
Если нужно получить дополнительные возможности работы с датой/временем, то в вашем распоряжении объектная модель Outlook. Например, при помощи ее можно получить информацию о праздниках и рабочих/нерабочих днях большинства стран мира.