В программах на VBA можно использовать стандартный набор операций над данными. Имеются три
основных типа операций:
Математические, выполняются
над числами, и их результатом являются числа
Отношения, применяются
не только к числам, и их результатом являются логические значения, например
х>у
Логические, используются
в логических выражениях и их результатом являются логические значения, например
Not x And у
Приведем
операции VBA указанных и дополнительных категорий. Математические операции.
Операнд!] +
[Операнд2]
Сложение
[ Операнд!]
-- [Операнд2]
Вычитание
- [Операнд]
Перемена знака
Операнд!] *
[Операнд2]
Умножение
[Операнд!] /
[Операнд2]
Деление
[Операнд1] \
[Операнд2]
Целочисленное
деление
[Операнд1] Mod
[Операнд2]
Остаток от деления
по модулю
[Операнд1] ^
[Операнд2]
Возведение в
степень
Операции
отношения.
[Операнд1] <
[Операнд2]
Меньше
[Операнд1] >
[Операнд2]
Больше
[Операнд1] <=
[Операнд2]
Меньше или равно
[Операнд1] >=
[Операнд2]
Больше или равно
[Операнд1] <>
[Операнд2]
Не равно
[Операнд1] =
[Операнд2]
Равно
[Операнд1] Is
[Операнд2]
Сравнение двух
операндов, содержащих ссылки на объекты
[Операнд1] Like
[Операнд2]
Сравнение двух
строковых выражений
Логические
операции.
[Операнд1] And
[Операнд2]
Логическое умножение
[Операнд1] Or
[Операнд2]
Логическое сложение
[Операнд1] Хог
[Операнд2]
Исключающее
or (или)
[Операнд1] Not
[Операнд2]
Логическое отрицание
[Операнд1] Imp
[Операнд2]
Логическая импликация
(в настоящее время почти не используется)
[Операнд1] Equ
[Операнд2]
Логическая эквивалентность
(в настоящее время почти не используется)
Другие
операции.
[Строка1] &
[Строка2]
Сложение строк.
Для сложения строк допустимо использование операции [Строка1] + [Строка2]
, но предпочтительнее, во избежания путаницы, применять операцию со
знаком &
Приоритеты
операций
VBA выполняет
операции в соответствии с их приоритетами, что обеспечивает однозначность в
трактовании значений выражений. Приведем приоритеты выполнения операций.
Приоритет
Операция
1
Вызов функции
и скобки
2
^
3
- (смена знака)
4
*, /
5
\
6
Mod
7
+, -
8
>, <,
>=, <=, о, =
9
Not
10
And
11
Or
12
Xor
13
Equ
14
Imp
Встроенные
функции VBA
В VBA имеется
большой набор встроенных функций и процедур, использование которых существенно
упрощает программирование. Эти функции можно разделить на следующие основные
категории:
Математические функции
Функции проверки типов
Функции преобразования
форматов
Функции обработки строк
Функции времени и даты
Ниже рассмотрены
основные функции из этих категорий.
Математические
функции
В VBA имеется
большой список математических функций, позволяющих произвести любые вычисления.
Функция
Возвращаемое
значение
Abs (число)
Atn (число)
Cos (число)
Модуль (абсолютная
величина)числа
Арктангенс
Косинус
Ехр (число)
Экспонента,
т. е. результат возведения основания натурального логарифма в указанную
степень
Log (число)
Натуральный
логарифм
Rnd (число)
Случайное число
из интервала [0,1).
Если число меньше
нуля, то Rnd возвращает каждый раз одно и то же число, используя аргумент
в качестве опорного числа; если число больше нуля или аргумент опущен,
то — следующее случайное число в последовательности; если число равняется
нулю, то — случайное число, возвращенное при предыдущем вызове этой
функции.
Перед вызовом
функции Rnd используйте инструкцию Randomize без аргумента
Sgn (число)
Знак числа
Sin (число)
Синус
Sqr (число)
Квадратный корень
из числа
Tan (число)
Тангенс
Fix (число)
И Int (число)
Обе функции,
int и Fix, отбрасывают дробную часть числа и возвращают целое значение.
Различие между
функциями int и Fix состоит в том, что для отрицательного значения
аргумента число функция int возвращает ближайшее отрицательное целое
число, меньшее либо равное указанному, a Fix — ближайшее отрицательное
целое число, большее либо равное указанному
Функции
проверки типов
Функции проверки
типов проверяют, является ли переменная выражением специфицированного типа.
Функция
Проверка
IsArray (переменная)
IsDate (переменная)
IsEmpty (переменная)
IsError (переменная)
IsNull (переменная)
IsNumeric (переменная)
IsObject (переменная)
Является ли
переменная массивом
Является ли переменная
датой
Была ли переменная
описана инструкцией Dim
Является ли переменная
кодом ошибки
Является ли переменная
пустым значением (Null)
Является ли переменная
числовым значением
Является ли переменная
объектом
Функции
преобразования форматов
Преобразование
строки в число и обратно осуществляют следующими функциями.
Val (строка)
Возвращает числа,
содержащиеся в строке, как числовое значение соответствующего типа
Str (число)
Возвращает значение
типа variant (String), являющееся строковым представлением числа
В качестве
допустимого десятичного разделителя функция str воспринимает только точку. При
наличии другого десятичного разделителя (например, запятой) для преобразования
чисел в строки следует использовать функцию cstr, описанную ниже.
Чтобы представить
числовое значение как дату, время, денежное значение или в специальном формате,
следует использовать функцию Format.
Format
Возвращает значение
типа variant (string), содержащее выражение, отформатированное согласно
инструкциям, заданным в описании формата.
Формат
— любое допустимое именованное или определяемое пользователем выражение
формата. Примером именованного формата является Fixed — формат действительного
числа с двумя значащими цифрами после десятичной точки
ПервыйДеньНедели — постоянная, определяющая первый день недели
ПерваяНеделяГода
— постоянная, определяющая первую неделю года
При построении
пользовательского числового формата возможно использование следующих символов.
0
Резервирует
позицию цифрового разряда. Отображает цифру или нуль. Если у числа,
представленного аргументом, есть какая-нибудь цифра в той позиции
разряда, где в строке формата находится о, функция отображает эту
цифру аргумента, если нет — в этой позиции отображается нуль
#
Резервирует
позицию цифрового разряда. Отображает цифру или ничего не отображает.
Если у числа, представленного аргументом, есть какая-нибудь цифра
в той позиции разряда, где в строке формата находится #, функция отображает
эту цифру аргумента, если нет — в исходной позиции не отображается
ничего. Действие данного символа аналогично действию о, за исключением
того, что лидирующие нули не отображаются
.
Резервирует
позицию десятичного разделителя. Указание точки в строке формата определяет,
сколько разрядов необходимо отображать слева и справа от десятичной
точки
%
Резервирует
процентное отображение числа
,
Разделитель
разряда сотен от тысяч
Разделитель
часов, минут и секунд в категории форматов Время (Time)
/
Разделитель
дня, месяца и года в категории форматов Дата (Date)
E+, E-, e+,
e-
Разделитель
мантиссы и порядка в экспоненциальном формате
Кроме функций
vai и str в VBA имеются следующие функции преобразования типов выражений
из данного в указанный.
Функция
Тип, в который
преобразуется выражение
CBool (Выражение)
Boolean
CByte (Выражение)
Byte
CCur (Выражение)
Currency
CDate (Выражение)
Date
СDbl (Выражение)
Double
CDec (Выражение)
Decimel
CInt (Выражение)
Integer
CLng (Выражение)
Long
CSng (Выражение)
Single
CVar (Выражение)
Variant
CStr (Выражение)
String
Функции
обработки строк
В VBA имеются
следующие функции обработки строковых выражений.
Функция
Возвращаемое
выражение
ASC
Возвращает ASCII-код
начальной буквы строки.
Синтаксис:
Asc (Строка)
Chr
Преобразует
ASCII-код в строку.
Синтаксис:
Chr (Код)
Например
Chr ( 13 ) — переход
на новую строку,
Chr ( 97 ) = "а"
Lease
Преобразует
строку к нижнему регистру.
Синтаксис:
Lease (Строка)
Ucase
Преобразует
строку к верхнему регистру.
Синтаксис:
Ucase (Строка)
Left
Возвращает подстроку,
состоящую из заданного числа первых символов исходной строки.
Синтаксис:
Left (string, length)
Аргументы:
length — число символов
string — исходная строка
Right
Возвращает строку,
состоящую из заданного числа последних символов исходной строки.
Синтаксис:
Right (string,
length)
Аргументы:
length — число символов
string — исходная строка
Mid
Возвращает подстроку
строки, содержащую указанное число символов.
Синтаксис:
Midlstring, start
[, length])
Аргументы:
string — строковое выражение, из которого извлекается подстрока
start — позиция символа в строке string, с которого начинается нужная
подстрока
length — число возвращаемых символов подстроки.
Len
Возвращает число
символов строки.
Синтаксис:
Len (Строка)
Функция
Возвращаемое
выражение
LTrim
Возвращает копию
строки без пробелов в начале.
Синтаксис:
LTrim (Строка)
Rtrim
Возвращает копию
строки без пробелов в конце.
Синтаксис:
RTrim (Строка)
Trim
Возвращает копию
строки без пробелов в начале и в конце
Синтаксис:
Trim (Строка)
Space
Возвращает строку,
состоящую из указанного числа пробелов.
Синтаксис:
Space (Число)
String
Возвращает строку,
состоящую из указанного числа повторений одного и того же символа.
Синтаксис:
String (number,
character)
Аргументы:
number — число повторений символа О character — повторяемый символ
StrComp
Возвращает результат
сравнения двух строк.
Синтаксис:
StrComp(stringl,
string2 [, compare])
Аргументы:
string1 и string2 — два любых строковых выражения
compare — указывает способ сравнения строк. Допустимые значения:
0 (двоичное сравнение), 1 (посимвольное сравнение без учета регистра)
Возвращаемые
значения:
stringl меньше, чем string2, то -1
stringl равняется string2, то 0
stringl больше, чем string2, то 1
InStr
Возвращает позицию
первого вхождения одной строки внутри другой строки.
Синтаксис:
InStr ( [start,
] stringl, st'ring2 [ , compare])
Аргументы:
start — числовое выражение, задающее позицию, с которой начинается
каждый поиск. Если этот аргумент опущен, поиск начинается с первого
символа строки
stringl — строковое выражение, в котором выполняется поиск
string2 — искомое строковое выражение
compare — указывает способ сравнения строк. Допустимые значения:
0 (для двоичного сравнения), 1 (посимвольное сравнение без учета
регистра)
Функции
времени и даты
В VBA имеются следующие, функции времени и даты.
Функция
Возвращаемое
значение
Date
Возвращает значение
типа Variant (Date) , содержащее текущую системную дату
Time
Возвращает значение
типа Variant (Date) , содержащее текущее время по системным часам
компьютера
Now
Возвращает значение
типа Variant (Date) , содержащее текущую дату и время по системному
календарю и часам компьютера
Hour, Minute,
Second
Возвращают значения
типа variant (integer), содержащее целое число, которое представляет
часы, минуты и секунды в значении времени.
Синтаксис:
Hour (время) Minute
(время) Second (время)
время — значение времени или выражение, его определяющее В следующем
примере переменной Час присваивается 16, Минута — 35 иСекунда —
17: РасчетноеВремя = #4:35:17 РМ# Час = Hour (РасчетноеВремя) Минута
= Minute (РасчетноеВремя) Секунда = Second (РасчетноеВремя)
Day, Month,
Year
Возвращает значение
типа Variant (Integer), содержащее целое число, которое представляет
день, месяц, год в значении даты. Синтаксис: Month (дата) Year (дата)
Q дата —значение даты или выражение, ее определяющее
Функция
Возвращаемое
значение
Weekday
Timer DateDif
f
В следующем
примере переменной день присваивается 17, Месяц — May, Год— I960:
День Рождения = #Мау 17, 1960# День = Day (День Рождения) Месяц =
Month (День Рождения) Год = Year (День Рождения) Возвращает значение
типа Variant (integer) , содержащее целое число, представляющее день
недели. Синтаксис: Weekday (date, [ f irstdayofweek] )
date — выражение, представляющее дату
f irstdayofweek — указывает первый день недели. Если этот аргумент
опущен, подразумевается vbSunday (воскресенье). Допустимы также
значения: vbMonday (понедельник), vbTuesday (вторник), vbWednesday
(среда), vbThursday (четверг), vbFriday (пятница) и vbSaturday (суббота)
В следующем примере переменной День Не дели присваивается 3, т.
е. вторник: ДеньРождения = #Мау 17, 1960# ДеньНедели = Weekday (ДеньРождения)
Возвращает значение типа Single, представляющее число секунд, прошедших
после полуночи Возвращает значение типа Variant (Long) , указывающее
число временных интервалов между двумя датами.
Синтаксис:
DateDif f (interval,
datel, date2[, firstdayofweek [, f irstweekof year] ] )
Аргументы:
Interval
— строковое выражение, указывающее тип временного интервала, который
следует использовать при вычислении разности между датами datel
и date2. Допустимые значения: уууу (год), q (квартал), m (месяц),
у (день года), d (день месяца), w (день недели), ww (неделя), h
(часы), m (минуты), s (секунды)
datel, date2 — значения типа Variant (Date). Две даты, разность
между которыми следует вычислить
firstdayofweek — постоянная, указывающая первый день недели Q firstweekofyear—
постоянная, указывающая первую неделю года В следующем примере переменной
ПрожилМесяцевСРождения присваивается 465: ПрожилМесяцевСРождения
= DateDiff ("m", #5/17/601, Now)
Функция
Возвращаемое
значение
DatePart DateAdd
TimeSerial DateSerial
TimeValue
Возвращает значение
типа variant (Integer) , содержащее указанный компонент даты.
Синтаксис:
DatePart
(interval, date [, firstdayofweek[, firstweekofyear] ] )
Возвращает значение
типа Variant ( Date ) , содержащее дату, к которой добавлен указанный
временной интервал.
Синтаксис:
DateAdd'(interval,
number, date)
Аргументы:
Iinterval
— строковое выражение, указывающее тип добавляемого временного интервала
number — числовое выражение, указывающее число временных интервалов,
которое следует добавить. Оно может быть положительным (для получения
более поздних дат) или от-. рицательным (для получения более ранних
дат).
date — значение типа Variant (Date) или литерал даты, представляющий
дату, к которой добавляется указанный временной интервал
В следующем
примере переменной день присваивается 03/17/63-: День = DateAdd ("m",
34, |05/17/60#) Возвращает значение типа Variant (Date) , содержащее
значение времени, соответствующее указанным часу, минуте и секунде.
Синтаксис:
TimeSerial (hour,
minute, second)
Аргументы:
hour, minute и second
— значения типа Variant ( Integer) В данном примере переменной Время
присваивается 16:35:17: Время = TimeSerial (16, 35, 17)
Возвращает значение
типа Variant (Date) , соответствующее указанному году, месяцу и дню.
Синтаксис: DateSerial (year, month, day)
Аргументы:
year, month и day — значения типа Integer
В следующем
примере переменной Дата присваивается
05/17/60: Дата
= DateSerial (1960, 5, 17) Преобразует строку в формат времени
Функции
выбора
Кроме перечисленных
выше основных категорий функций в VBA имеются также функции выбора, которые
дублируют некоторые аспекты операторов условного перехода. Ниже приведены эти
функции.
Функция
Возвращаемое
значение
lit
Choose
Switch
Возвращает одну
из двух альтернатив.
Синтаксис:
If(expr,
truepart, falsepart)
expr — проверяемое выражение
truepart — значение или выражение, возвращаемое, если ехрг имеет
значение True
falsepart — значение или выражение, возвращаемое, если ехрг имеет
значение False В следующем примере, если значение переменной ОценкаЦифрой
равно 5, то переменной ОценкаПрописыо присваивается строковая константа
Отлично. В противном случае ей присваивается значение Не отлично:
ОценкаПрописью = Ilf (ОценкаЦифрой = 5, "Отлично", "Не
отлично")
Возвращает значение,
выбранное из списка аргументов.
индекс — числовое выражение или поле, значением которого является
число, лежащее между 1 и числом элементов в списке
вариант — выражение типа Variant, содержащее один из элементов списка
Действие функции
Choose: если индекс равняется 1 , возвращается первый элемент списка,
если индекс равняется 2, возвращается второй элемент списка и т. д.
Функцию choose можно использовать для выбора одного из возможных значений,
представленных в виде списка. В следующем примере, если аргумент Выбор
принимает значение 3, то переменной РезультатВыборы присваивается
значение "три": РезультатВыборы = Choose (Выбор, "один",
"два", "три") Возвращается значение, соответствующее
первому истинному выражению в списке.
Некоторые
функции имеют по две версии, одна из которых возвращает тип данных variant а
другая — тип данных string. Первая версия является более удобной, так как при
этом для значений типа variant преобразование типов данных выполняется автоматически.
Вторая версия, возвращающая тип string, использует меньше памяти и может быть
полезна в следующих случаях:
Для экономии памяти,
если в программе имеется очень много переменных
При выполнении прямой
записи данных в файлы с произвольным доступом
Перечисленные
ниже функции возвращают значения типа String, если к их имени добавляется символ
доллара ($). Эти функции имеют такое же применение и синтаксис, как и их эквиваленты
без символа доллара, возвращающие тип Variant.
Знаете ли Вы, что, как ни тужатся релятивисты, CMB (космическое микроволновое излучение) - прямое доказательство существования эфира, системы абсолютного отсчета в космосе, и, следовательно, опровержение Пуанкаре-эйнштейновского релятивизма, утверждающего, что все ИСО равноправны, а эфира нет. Это фоновое излучение пространства имеет свою абсолютную систему отсчета, а значит никакого релятивизма быть не может. Подробнее читайте в FAQ по эфирной физике.
