Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
512244_74984_sidorov_m_e_algoritmizaciya_i_prog....doc
Скачиваний:
19
Добавлен:
01.05.2019
Размер:
5.08 Mб
Скачать

Константы Visual Basic для управляющих ascii кодов

Константа

Chr(Код)

Клавиша

VbBack

Chr(8)

Backspace

VbTab

Chr(9)

Tab

VbChr

Сhr(13)

Enter

Функции времени и даты

Функция

Возвращает

Date

текущую системную дату, тип Variant (Date)

Time

текущее системное время, тип Variant (Date)

Now

текущую системную дату и время, тип Variant (Date),

Hour,

Minute,

Second

целые числа - часы, минуты и секунды, тип Variant (integer).

Синтаксис: Hour(Время), Minute(Время), Second(Время).

Например: час=Hour(Now), Минута = Minute(Now), Секунда = Second(Now)

Day,

Month,

Year

целые числа - день, месяц, год, тип Variant (integer).

Синтаксис: Day(Дата), Month(Дата), Year(Дата).

Например: День=Day(Now), Месяц=Month(Now), Год=Year(Now)

Weekday

целое число - день недели.

Синтаксис: Weekday(Дата,[ПервыйДеньНедели])

ПервыйДеньНедели по умолчанию - vbSunday (воскресенье). Допустимы:

vbMonday, VbTuesday, VbWednesday, vbThursday, VbFriday, VbSaturday.

Timer

число секунд, прошедших после полуночи, тип Single.

DateDiff

количество временных интервалов между двумя датами, тип Long.

Синтаксис: DateDiff(Интервал,Дата1,Дата2 [,ПервыйДеньНедели[,ПерваяНеделяГода]])

Интервал - тип временного интервала. Допустимые значения:

уууу - Год, q - Квартал, m - Месяц, ww - Неделя, h - Часы, m - Минуты, s -Секунды; , у - День года d - День месяца, w - День недели,

Например: Лет = DateDiff("yyyy", #4/7/57#, Now)

DatePart

указанную компоненту даты, тип Variant (integer). Синтаксис:

DatePart(Интервал, Дата [, ПервыйДеньНедели [, ПерваяНеделяГода]])

DateAdd

дату, к которой добавлено (убавлено) Число временных интервалов, тип Variant (Date). Синтаксис: DateAdd(Интервал,Число,Дата).

TimeSerial

время, тип Variant (Date). Синтаксис: TimeSerial(Час,Минута,Секунда)

DateSerial

дату, тип Variant (Date). Синтаксис: DateSerial(Год,Месяц,День)

TimeValue

Преобразует строку в формат времени.

Примеры.

Dim Today, dateNow, timeNow, dayNow, monthNow

Today = Now ' получаем 14.01.2006 2:44:23

dateNow = Date ' получаем 14.01.2006

timeNow = Time ' получаем 2:44:23

dayNow = day(Today) ' получаем 14

monthNow = month(Today) ' получаем 1 – типы данных -Variant

Функции выбора

В функции выбора значения всех выражений вычисляются всегда, независимо от значения логического выражения (условия).

Функция

Возвращает

IIf

Значение выражения1 если ЛогическоеВыражение=True, иначе выражения2.

Синтаксис: IIf(Условие, Выражение1, Выражение2)

Choose

значение выражения по номеру.

Номер не должен превышать число выражений.

Синтаксис: Choose(Номер, Выражение1 [,Выражение2] ... )

Switch

значение, соответствующее первому истинному выражению в списке. Синтаксис: Switch(Условие1,Выражение1[,Условие2,Выражение2]…)

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]