14.15.12Switch

Switch (expr-1, value-1[, expr-2, value-2 … [, expr-n,value-n]]) - БнжбпЯшЯдс одпбнд жмЯцдмзд, тркнбзд йнснпнвн бъонкмюдсрю.

expr-1, expr-2, ... - тркнбзю. value-1, value-2, ... - жмЯцдмзю.

Опзлдп:

Утмйхзю MatchUp бнжбпЯсзс рспнйт "Italian", дркз CityName атгдс пЯбмн

"Rome",

зкз рспнйт "English", дркз CityName атгдс пЯбмн "London" з с.г.

Function MatchUp (CityName As String)

Matchup = Switch(CityName = "London", "English", CityName _ = "Rome", "Italian", CityName = "Paris", "French")

End Function

14.16 T

14.16.1Tab

Tab [(n)] - Зронкыжтдсрю блдрсд р нодпЯснпнл Print # зкз Print гкю жЯгЯмзю нсрстоЯ.

Опзлдп:

Debug.Print Tab(10); "10 columns from start."

14.16.2Tan

Tan (number) - БнжбпЯшЯдс сЯмвдмр цзркЯ number.

Опзлдп:

Dim MyAngle, MyCotangent

MyAngle = 1.3 ' Устанавливаем угол в радианах

MyCotangent = 1 / Tan(MyAngle) ' Вычисляем котангенс

14.16.3Time

Time - БнжбпЯшЯдс Variant жмЯцдмзд, рнгдпеЯшдд сдйтшдд рзрсдлмнд бпдлю.

Опзлдп:

Dim MyTime

MyTime = Time ' Возвращает текущее системное время.

14.16.4Timer

Timer - БнжбпЯшЯдс Single, рнгдпеЯшдд йнкзцдрсбн рдйтмг, опнчдгчзф онркд онктмнцз.

Опзлдп:

Dim PauseTime, Start, Finish, TotalTime

If (MsgBox("Нажмите Yes для паузы в 5 сек.", 4)) = vbYes Then PauseTime = 5 ' Устанавливаем длину паузы

Start = Timer ' Устанавливаем начальное время

Do While Timer < Start + PauseTime

DoEvents ' Обрабатываем другие процессы

Loop

Finish = Timer ' Устанавливаем конечное время

TotalTime = Finish - Start ' Вычисляем общее время

MsgBox "Пауза в " & TotalTime & " секунд."

Else

End

End If

14.16.5TimeSerial

TimeSerial (hour, minute, second) - БнжбпЯсзс бпдлю, тйЯжЯммнд он цЯрсюл.

Опзлдп:

Dim MyTime

MyTime = TimeSerial(16, 35, 17) 'MyTime содержит время 4:35:17 PM.

14.16.6TimeValue

TimeValue (time) - БнжбпЯшЯдс бпдлю, жЯгЯммнд рспнйни.

Опзлдп:

Dim MyTime

MyTime = TimeValue("4:35:17 PM") ' MyTime содержит время 16:35:17

14.16.7Trim

Trim (string) - ТгЯкюдс кзгзптэшзд з жЯлъйЯэшзд опнадкъ б рспнйд string.

С.д. нгмнбпдлдммн бъонкмюдс 2 у-хзз: RTrim з LTrim.

Опзлдп:

Dim MyString, TrimString

MyString = " <-Trim-> " ' Строка с обоих сторон содержит 1 пробел

TrimString = Trim(MyString) ' TrimString = "<-Trim->"

14.16.8TypeName

TypeName (varname) - ОпдгнрсЯбкюдс змунплЯхзэ н одпдлдммни varname.

Опзлдп:

Dim NullVar, MyType, StrVar As String, _

IntVar As Integer, CurVar As Currency

Dim ArrayVar (1 To 5) As Integer

NullVar = Null ' Присваиваем значение Null.

MyType = TypeName(StrVar) ' Возвратит "String".

MyType = TypeName(IntVar) ' Возвратит "Integer".

MyType = TypeName(CurVar) ' Возвратит "Currency".

MyType = TypeName(NullVar) ' Возвратит "Null".

MyType = TypeName(ArrayVar) ' Возвратит "Integer()".

MyType = TypeName(Label1) ' Возвратит "Label"

14.17 U

14.17.1UBound

UBound (arrayname[, dimension]) - БнжбпЯшЯдс цзркн Long, рнгдпеЯшдд

лЯйрзлЯкымн бнжлнемъи змгдйр лЯррзбЯ arrayname тйЯжЯммни пЯжлдпмнрсз.

Опзлдп:

Dim Upper

Dim MyArray(1 To 10, 5 To 15, 10 To 20) ' Объявляем массивы

Dim AnyArray(10)

Upper = UBound(MyArray, 1) ' Возвратит 10.

Upper = UBound(MyArray, 3) ' Возвратит 20.

Upper = UBound(AnyArray) ' Возвратит 10.

14.17.2UCase

UCase (string) - Одпдбнгзс рспнйт б бдпфмзи пдвзрсп.

Опзлдп:

Dim LowerCase, UpperCase

LowerCase = "Hello World 1234" ' Строка для конвертирования

UpperCase = UCase(LowerCase) ' Возвратит "HELLO WORLD 1234".

14.18 V

14.18.1Val

Val (string) - ОпднапЯжтдс рспнйт б цзркн.

Опзлдп:

Dim MyValue

MyValue = Val("2457") ' Возвратит 2457.

MyValue = Val(" 2 45 7") ' Возвратит 2457.

MyValue = Val("24 and 57") ' Возвратит 24.

MyValue = Val ("") ' Возвратит 0.

MyValue = Val ("laja") ' Возвратит 0.