- •Алгоритмизация и программирование на vba: основы программирования
- •Содержание
- •Лабораторная работа 1 Создание программы на vba
- •Цель работы
- •Общие сведения
- •Языки программирования
- •Объекты
- •События
- •Порядок выполнения работы
- •Содержание отчёта
- •Контрольные вопросы
- •Лабораторная работа 2 Реализация линейных алгоритмов в vba
- •Синтаксис:
- •Аргументы:
- •Инструкция DefТип
- •Константы
- •Допустимые имена
- •Инструкции vba
- •Форматирование строк программы
- •Перенос инструкции
- •Размещение инструкций в одну строку
- •Комментарии
- •Операции в vba
- •Арифметические
- •Строковые
- •Синтаксис:
- •Операции отношения
- •Логические операции.
- •Приоритеты операций
- •Встроенные функции vba
- •Математические функции
- •Функции проверки типов
- •Функции преобразования форматов
- •Синтаксис:
- •Аргументы:
- •Функции обработки строк
- •Функции времени и даты
- •Функции, возвращающие строки
- •Встроенные диалоговые окна
- •Синтаксис:
- •Аргументы:
- •Синтаксис:
- •Аргументы:
- •Работы с данными Host приложений.
- •Анализ макросов
- •Обращение к объектам.
- •Оператор «With».
- •Задание
- •Содержание отчёта
- •Контрольные вопросы
- •Пример выполнения работы Задание:
- •Текст программы:
- •Индивидуальные задания
Функции времени и даты
Функции обработки времени и даты перечислены в таблице (Таблица 15).
Таблица 15. Функции времени и даты
Функция |
Результат |
Синтаксис: |
1 |
2 |
|
Date |
Возвращает значение типа Variant(Date) , содержащее текущую системную дату |
Date() |
Time |
Возвращает значение типа Variant(Date) , содержащее текущее время по системным часам компьютера |
Time() |
Now |
Возвращает значение типа Variant(Date) , содержащее текущую дату и время по системному календарю и часам компьютера |
Now() |
Таблица 15, продолжение
1 |
2 |
3 |
Hour,Minute,Second |
Возвращают значения типа variant(integer), содержащее целое число, которое представляет часы, минуты, и секунды в значении времени. |
Hour (время) Minute (время) Second (время) время - значение времени или выражение, его определяющее В следующем примере переменной Час присваивается 16, Минута - 35, Секунда - 17: Время = #4:35:17 РМ# Час = Hour(Время) Минута = Minute(Время) Секунда = Second(Время) |
Day,Month,Year |
Возвращает значение типа Variant(Integer), содержащее целое число, которое представляет день, месяц, год в значении даты. |
Day (дата) Month (дата) Year (дата) дата - значение даты или выражение, ее определяющее В следующем примере переменной день присваивается 17, Месяц — May, Год— I960: ДеньРож = #May17, 1960# День = Day(ДеньРож) Месяц = Month(ДеньРож) Год = Year(ДеньРож) |
Weekday |
Возвращает значение типа Variant(integer), содержащее целое число, представляющее день недели. |
Weekday(date, [firstdayofweek]) date- дата firstdayofweek - указывает первый день недели. Если этот аргумент опущен, подразумевается vbSunday (воскресенье). Допустимы также значения: vbMonday (понедельник), vbTuesday (вторник), vbWednesday (среда), vbThursday (четверг), vbFriday (пятница) и vbSaturday (суббота) В примере переменной ДеньНед присваивается 3, то есть вторник: ДеньРож = #May17, 1960# ДеньНед = Weekday(ДеньРож) |
Таблица 15, продолжение
1 |
2 |
3 |
Timer |
Возвращает значение типа Single, представляющее число секунд, прошедших после полуночи |
Timer () |
DateDiff |
Возвращает значение типа Variant(Long) , указывающее число временных интервалов между двумя датами. |
DateDiff (interval, date1, date2 [, firstdayofweek [,firstweekofyear]]) Аргументы: Interval- строковое выражение, указывающее тип временного интервала, который следует использовать при вычислении разности между датами date1 и date2. Допустимые значения: уууу (год), q (квартал), m (месяц), у (день года), d (день месяца), w (день недели), ww (неделя), h (часы), m (минуты), s (секунды) date1, date2 - значения типа Variant (Date). Две даты, разность между которыми следует вычислить firstdayofweek - постоянная, указывающая первый день недели firstweekofyear - постоянная, указывающая первую неделю года В следующем примере переменной ПМ присваивается 465: ПМ = DateDiff("m",#5/17/601,Now) |
DatePart |
Возвращает значение типа variant(Integer) , содержащее указанный компонент даты. |
DatePart (interval, date [, firstdayofweek[, firstweekofyear] ] ) |
Таблица 15, Окончание
1 |
2 |
3 |
DateAdd |
Возвращает значение типа Variant (Date) , содержащее дату, к которой добавлен указанный временной интервал. |
DateAdd(interval,number,date) interval- строковое выражение, указывающее тип добавляемого временного интервала number- числовое выражение, указывающее число временных интервалов, которое следует добавить. Может быть положительным (для получения более поздних дат) или отрицательным (для более ранних). date- значение типа Variant (Date) или литерал даты, представляющий дату, к которой добавляется указанный временной интервал В следующем примере переменной Д присваивается 03/17/63: Д = DateAdd("m",34,05/17/60#) |
TimeSerial |
Возвращает значение типа Variant (Date) , содержащее значение времени, соответствующее указанным часу, минуте и секунде. |
TimeSerial (hour, minute, second) hour, minute и second - значения типа Variant (Integer) В данном примере переменной Время присваивается 16:35:17: Время = TimeSerial(16, 35, 17) |
DateSerial |
Возвращает значение типа Variant (Date) , соответствующее указанному году, месяцу и дню. |
DateSerial (year, month, day) year, month и day - значения типа Integer В следующем примере переменной Дата присваивается 05/17/60: Дата = DateSerial(1960, 5, 17) |
TimeValue |
Преобразует строку в формат времени |
TimeValue(Строка) |