End Type

...

Шаг 69 - Инструкция Type

Dim MyTime

Шаг 68 - Инструкция Time

End Sub

End If

Sub SubComputeArea(Length, TheWidth

Dim Area As Double ' Объявляет локальную переменную.

If Length = 0 Or TheWidth = 0 Then

' Если хотя бы один из аргументов равен 0.

Exit Sub ' Немедленно завершает процедуру Sub.

Area = Length * TheWidth ' Вычисляет площадь прямоугольника.

Debug.Print Area ' Выводит полученное значение в окно отладки.

Устанавливает системное время.

Time = время

Параметры
время: Обязательный аргумент время может быть любым числовым выражением, строковым выражением или любой комбинацией, которая представляет значение времени.

Замечания
Если аргумент время является строкой, инструкция Time пытается преобразовать ее в значение времени, используя разделители компонентов времени, определенные в текущей системе. Если указанную строку не удастся преобразовать в допустимое время, возникает ошибка.

Пример
В данном примере инструкция Time используется для изменения системного времени.

MyTime = #4:35:17 PM# ' Присваивает время.

Time = MyTime ' Изменяет системное время.

Применяется на уровне модуля для описания определяемого пользователем типа данных, который содержит один или несколько элементов.

[Private | Public] Type имяПеременной

имяЭлемента [([индексы])] As тип

[имяЭлемента [([индексы])] As тип]

Параметры
Public: Необязательный. Используется для описания определяемых пользователем типов, которые доступны для всех процедур во всех модулях всех проектов.
Private: Необязательный. Используется для описания определяемых пользователем типов, которые доступны только в модуле, в котором выполняется описание.
ИмяПеременной: Обязательный. Имя типа, определяемого пользователем, удовлетворяющее правилам именования переменных.
ИмяЭлемента: Обязательный. Имя элемента определяемого пользователем типа. Имена элементов также должны соответствовать правилам именования переменных, за исключением того, что для их задания разрешается использовать ключевые слова.
индексы Необязательный. Размерности элемента, являющегося массивом. Для задания массива, размеры которого могут изменяться, указываются только скобки. Аргумент индексы использует следующий синтаксис:

[нижний To] верхний [,[нижний To] верхний]...

Если нижний индекс не задан явно, нижняя граница массива определяется инструкцией Option Base. Если отсутствует инструкция Option Base, нижняя граница массива равняется нулю.
Тип: Обязательный. Тип данных элемента; поддерживаются типы Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (в настоящее время не поддерживается), Date, String (для строк переменной длины), String * длина (для строк фиксированной длины), Object, Variant, другой определяемый пользователем тип или объектный тип.

Замечания
Инструкция Type допускает использование только на уровне модуля. После определения типа данных с помощью инструкции Type имеется возможность в любом месте описать переменную этого типа в заданной области определения. Для описания переменной определяемого пользователем типа используются инструкции Dim, Private, Public, ReDim или Static.
В стандартных модулях типы данных, определяемые пользователем, по умолчанию являются общими. Видимость этих типов данных может быть изменена с помощью ключевого слова Private. В модулях класса, однако, типы данных, определяемые пользователем, могут быть только личными, и их видимость не может быть изменена с помощью ключевого слова Public.
Не допускается появление номеров строк и меток строк в блоках Type...End Type.
Типы данных, определяемые пользователями, могут использоваться с записями данных, которые часто состоят из набора связанных элементов различного типа.
В следующем примере демонстрируется использование массивов фиксированного размера в типах данных, определяемых пользователем:

Дата добавления: 2015-06-27