`
к оглавлению   к 4GL - визуальному программированию

ОСНОВЫ ПРОГРАММИРОВАНИЯ НА VBA

Операции VBA

В программах на VBA можно использовать стандартный набор операций над данными. Имеются три основных типа операций:

Приведем операции 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), содержащее выражение, отформатированное согласно инструкциям, заданным в описании формата.

Синтаксис:

Format (Выражение [, Формат [, ПервыйДеньНедели [ , ПерваяНеделяГода] ] ])

  • Выражение — любое допустимое выражение
  • Формат — любое допустимое именованное или определяемое пользователем выражение формата. Примером именованного формата является 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, "Отлично", "Не отлично")

Возвращает значение, выбранное из списка аргументов.

Синтаксис:

Choose (индекс, вариант-1[, вариант-2, ... [, вариант-п] ] )

  • индекс — числовое выражение или поле, значением которого является число, лежащее между 1 и числом элементов в списке
  • вариант — выражение типа Variant, содержащее один из элементов списка

Действие функции Choose: если индекс равняется 1 , возвращается первый элемент списка, если индекс равняется 2, возвращается второй элемент списка и т. д. Функцию choose можно использовать для выбора одного из возможных значений, представленных в виде списка. В следующем примере, если аргумент Выбор принимает значение 3, то переменной РезультатВыборы присваивается значение "три": РезультатВыборы = Choose (Выбор, "один", "два", "три") Возвращается значение, соответствующее первому истинному выражению в списке.

Синтаксис:

Switch ( выражение- 1, значение-1, выражение-2, значение-2 ... [, выражение-n, значение-п] ] )

 

Функции, возвращающие строки

Некоторые функции имеют по две версии, одна из которых возвращает тип данных variant а другая — тип данных string. Первая версия является более удобной, так как при этом для значений типа variant преобразование типов данных выполняется автоматически. Вторая версия, возвращающая тип string, использует меньше памяти и может быть полезна в следующих случаях:

Перечисленные ниже функции возвращают значения типа String, если к их имени добавляется символ доллара ($). Эти функции имеют такое же применение и синтаксис, как и их эквиваленты без символа доллара, возвращающие тип Variant.

Chr$

CurDir$

Date$

Dir$

Error$

Format$

Input$

InputB$

LCase$

Left$

LTrim$

MidS

Right$

Rtrim$

Space$

Str$

String$

Тime $

Trim$

Ucase$

к оглавлению   к 4GL - визуальному программированию

Знаете ли Вы, что такое "усталость света"?
Усталость света, анг. tired light - это явление потери энергии квантом электромагнитного излучения при прохождении космических расстояний, то же самое, что эффект красного смещения спектра далеких галактик, обнаруженный Эдвином Хабблом в 1926 г.
На самом деле кванты света, проходя миллиарды световых лет, отдают свою энергию эфиру, "пустому пространству", так как он является реальной физической средой - носителем электромагнитных колебаний с ненулевой вязкостью или трением, и, следовательно, колебания в этой среде должны затухать с расходом энергии на трение. Трение это чрезвычайно мало, а потому эффект "старения света" или "красное смещение Хаббла" обнаруживается лишь на межгалактических расстояниях.
Таким образом, свет далеких звезд не суммируется со светом ближних. Далекие звезды становятся красными, а совсем далекие уходят в радиодиапазон и перестают быть видимыми вообще. Это реально наблюдаемое явление астрономии глубокого космоса. Подробнее читайте в FAQ по эфирной физике.

НОВОСТИ ФОРУМА

Форум Рыцари теории эфира


Рыцари теории эфира
 10.11.2021 - 12:37: ПЕРСОНАЛИИ - Personalias -> WHO IS WHO - КТО ЕСТЬ КТО - Карим_Хайдаров.
10.11.2021 - 12:36: СОВЕСТЬ - Conscience -> РАСЧЕЛОВЕЧИВАНИЕ ЧЕЛОВЕКА. КОМУ ЭТО НАДО? - Карим_Хайдаров.
10.11.2021 - 12:36: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от д.м.н. Александра Алексеевича Редько - Карим_Хайдаров.
10.11.2021 - 12:35: ЭКОЛОГИЯ - Ecology -> Биологическая безопасность населения - Карим_Хайдаров.
10.11.2021 - 12:34: ВОЙНА, ПОЛИТИКА И НАУКА - War, Politics and Science -> Проблема государственного терроризма - Карим_Хайдаров.
10.11.2021 - 12:34: ВОЙНА, ПОЛИТИКА И НАУКА - War, Politics and Science -> ПРАВОСУДИЯ.НЕТ - Карим_Хайдаров.
10.11.2021 - 12:34: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Вадима Глогера, США - Карим_Хайдаров.
10.11.2021 - 09:18: НОВЫЕ ТЕХНОЛОГИИ - New Technologies -> Волновая генетика Петра Гаряева, 5G-контроль и управление - Карим_Хайдаров.
10.11.2021 - 09:18: ЭКОЛОГИЯ - Ecology -> ЭКОЛОГИЯ ДЛЯ ВСЕХ - Карим_Хайдаров.
10.11.2021 - 09:16: ЭКОЛОГИЯ - Ecology -> ПРОБЛЕМЫ МЕДИЦИНЫ - Карим_Хайдаров.
10.11.2021 - 09:15: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Екатерины Коваленко - Карим_Хайдаров.
10.11.2021 - 09:13: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Вильгельма Варкентина - Карим_Хайдаров.
Bourabai Research - Технологии XXI века Bourabai Research Institution