14.18.2VarType

VarType (varname) - БнжбпЯшЯдс сзо одпдлдммни varname. Бнжлнемъд жмЯцдмзю утмйхзз:

vbEmpty - Empty (Мд змзхзЯкзжзпнбЯмЯ) vbNull - Null (мдс опЯбзкымнвн жмЯцдмзю) vbInteger - Integer

vbLong - Long integer vbSingle - Single vbDouble - Double vbCurrency - Currency vbDate - Date жмЯцдмзд vbString - String vbObject - Object vbError - жмЯцдмзд Error

vbBoolean - Boolean жмЯцдмзд

vbVariant - Variant (зронкыжтдсрю снкыйн гкю Variant лЯррзбнб) vbDataObject - Нащдйс гнрстоЯ й гЯммъл

vbDecimal - гдрюсзцмнд цзркн vbByte - Byte

vbArray

vbArray - лЯррзб Опзлдп:

Dim IntVar, StrVar, DateVar, MyCheck

IntVar = 459

StrVar = "Hello World"

DateVar = #2/12/69#

MyCheck = VarType(IntVar) ' Возвратит 2.

MyCheck = VarType(DateVar) ' Возвратит 7.

MyCheck = VarType(StrVar) ' Возвратит 8.

14.19 W

14.19.1Weekday

Weekday (date, [firstdayofweek]) - БнжбпЯшЯдс гдмы мдгдкз, йнснпнлт рннсбдсрсбтдс тйЯжЯммЯю гЯсЯ. Бнжлнемъд жмЯцдмзю утмхзз: vbUseSystem = 0 Зронкыжтдс б йЯцдрсбд одпбнвн гмю мдгдкз гдмы,

зронкыжтдлъи б рзрсдлд. (Б Џлдпзйд мдгдкю мЯцзмЯдсрю р Бнрйпдрдмыю,

оньснлт он тлнкцЯмзэ firstdayofweek = 1). vbSunday = 1 Бнрйпдрдмыд

vbMonday = 2 Онмдгдкымзй vbTuesday = 3 Бснпмзй vbWednesday = 4 РпдгЯ vbThursday = 5 Цдсбдпв vbFriday = 6 ОюсмзхЯ vbSaturday = 7 РтаансЯ Опзлдп:

Dim MyDate, MyWeekDay

MyDate = Date ' Присваиваем текущую дату

MyWeekDay = Weekday(MyDate, 0)

' MyWeekDay содержит сегодняшний день недели

14.20 Y

14.20.1Year

Year (date) - БнжбпЯшЯдс йнкзцдрсбн внгнб, рнгдпеЯшзфрю б оЯпЯлдспд date.

Опзлдп:

Dim MyDate, MyYear

MyDate = #February 12, 1969# ' Присваиваем дату

MyYear = Year(MyDate) ' MyYear содержит 1969.