14.1.4 Atn
Atn (number) - бнжбпЯшЯдс ЯпйсЯмвдмр цзркЯ.
Опзлдп:
Dim pi
pi = 4 * Atn(1) ' Вычисляет значение числа pi.
14.2B
14.3C
14.3.1 Функции конвертирования типов
CBool (expression) - бнжбпЯжЯдс boolean жмЯцдмзд
CByte (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Byte
CCur (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Currency
CDate (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Date
CDbl (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Double
CDec (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Decimal
CInt (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Integer
CLng (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Long
CSng (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Single
CVar (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ Variant
CStr (expression) - бнжбпЯшЯдс жмЯцдмзд сзоЯ String
Опзлдпъ брдф ьсзф у-хзи:
14.3.1.1 CBool
Dim A, B, Check
A = 5: B = 5 ' Инициализация переменных.
Check = CBool(A = B) ' Check содержит True. A = 0 ' Инициализация переменной.
Check = CBool(A) ' Check содержит False.
14.3.1.2 CByte
Dim MyDouble, MyByte
MyDouble = 125.5678 ' MyDouble имеет тип Double.
MyByte = CByte(MyDouble) ' MyByte содержит 126.
14.3.1.3 CCur
Dim MyDouble, MyCurr
MyDouble = 543.214588 ' MyDouble имеет тип Double.
MyCurr = CCur(MyDouble * 2) ' Конвертирует результат MyDouble * 2
'Double - (1086.429176).
'Currency - (1086.4292).
14.3.1.4 CDate
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' Запись даты в переменную MyDate. MyShortDate = CDate(MyDate) ' Конвертирование в тип Date.
MyTime = "4:35:47 PM" ' Запись времени в переменную MyTime.
MyShortTime = CDate(MyTime) ' Конвертирование в тип Date.
14.3.1.5 CDbl
Dim MyCurr, MyDouble
MyCurr = CCur(234.456784) ' MyCurr имеет тип Currency.
MyDouble = CDbl(MyCurr * 8.2 * 0.01) 'Конвертирует результат в Double.
14.3.1.6 CInt
Dim MyDouble, MyInt
MyDouble = 2345.5678 ' MyDouble имеет тип Double.
MyInt = CInt(MyDouble) ' MyInt содержит 2346.
14.3.1.7 CLng
Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55 'MyVal1, MyVal2 имеют тип Double. MyLong1 = CLng(MyVal1) ' MyLong1 содержит 25427.
MyLong2 = CLng(MyVal2) ' MyLong2 содержит 25428.
14.3.1.8 CSng
Dim MyDouble1, MyDouble2, MySingle1, MySingle2
' MyDouble1, MyDouble2 имеют тип Double. MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
MySingle1 = CSng(MyDouble1) ' MySingle1 содержит 75.34211. MySingle2 = CSng(MyDouble2) ' MySingle2 содержит 75.34216.
14.3.1.9 CStr
Dim MyDouble, MyString
MyDouble = 437.324 ' MyDouble имеет тип Double.
MyString = CStr(MyDouble) ' MyString содержит "437.324".
14.3.1.10CVar
Dim MyInt, MyVar
MyInt = 4534 ' MyInt имеет тип Integer.
MyVar = CVar(MyInt & "000") 'MyVar содержит значение String "4534000".
14.3.2 Cos
Cos (number) - бъцзркюдс йнрзмтр цзркЯ.
Опзлдп:
Dim MyAngle, MySecant
MyAngle = 1.3 ' Устанавливаем угол в радианах.
MyCos = Cos(MyAngle) ' Вычисляем косинус.
MySecant = 1 / Cos(MyAngle)
14.3.3 Chr
Chr (charcode) - бнжбпЯшЯдс рзлбнк, рннсбдсрсбтэшзи нопдгдкяммнлт йнгт.
ЬсЯ у-хзю юбкюдсрю напЯсмни Asc.
Опзлдп:
Dim MyChar
MyChar = Chr(65) ' Возвратит A.
MyChar = Chr(97) ' Возвратит a.
MyChar = Chr(62) ' Возвратит >.
MyChar = Chr(37) ' Возвратит %.
Choose (index, choice-1[, choice-2, ... [, choice-n]]) - бъазпЯдс жмЯцдмзд зж