End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

Sub Test

Dim MyDouble As Double: Dim MyCurr As Currency

MyDouble = 543.214588 ' MyDouble имеет тип Double.

MyCurr = CCur(MyDouble * 2) ' Преобразует результат выражения

' MyDouble * 2 (1086.429176) в

' значение типа Currency (1086.4292)

Приведенный ниже пример демонстрирует применение функции CDate для

преобразования типа String в тип Date.

Пример:

Sub Test

Dim MyDate As String: Dim MyShortDate As Date

Dim MyTime As String: Dim MyShortTime As Date

MyDate = "February 12, 1969" ' Определяет дату.

MyShortDate = CDate(MyDate) ' Преобразует к типу Date.

MyTime = "4:35:47 PM" ' Определяет время.

MyShortTime = CDate(MyTime) ' Преобразует к типу Date.

Приведенный ниже пример демонстрирует применение функции CInt для

преобразования типа Double в тип Integer.

Пример:

SubTest()

Dim MyDouble As Double: Dim MyInt As Integer

MyDouble = 2345.5678 ' MyDouble имеет тип Double.

MyInt = CInt(MyDouble) ' возвращает значение 2346.

Приведенный ниже пример демонстрирует применение функции CLng для

преобразования типа Single в тип Long.

Пример:

SubTest()

Dim MyVal1 As Single: Dim MyVal2 As Single
Dim MyLong1 As Long: Dim MyLong2 As Long

MyVal1 = 25427.45:

MyVal2 = 25427.55 ' MyVal1 и MyVal2 имеют тип Single.

MyLong1 = CLng(MyVal1) ' MyLong1 содержит 25427.

MyLong2 = CLng(MyVal2) ' MyLong2 содержит 25428.

Приведенный ниже пример демонстрирует применение функции CSng для

преобразования типа Double в тип Single.

Пример:

Sub Test()

Dim MyDouble1 As Double

Dim MyDouble2 As Double

Dim MySingle1 As Single

Dim MySingle2 As Single

' MyDouble1 и MyDouble2 имеют тип Doubles.

MyDouble1 = 75.3421115: MyDouble2 = 75.3421555

MySingle1 = CSng(MyDouble1) ' MySingle1 содержит 75.34211.

MySingle2 = CSng(MyDouble2) ' MySingle2 содержит 75.34216.

Приведенный ниже пример демонстрирует применение функции CVar для

преобразования типов Integer и String в тип String со слитыми данными.

Пример:

Sub Test()

Dim MyInt As Integer

Dim MyVar As String

MyInt = 4534 ' MyInt имеет тип Integer.

MyVar = CVar(MyInt & "000") ' MyVar содержит строку 4534000.

Приведенный ниже пример демонстрирует применение функции CSng для

преобразования типа Double в тип String.

Пример:

Sub Test()

Dim MyDouble As Double

Dim MyString As String

MyDouble = 437.324 ' MyDouble имеет тип Double.

MyString = CStr(MyDouble) ' MyString содержит "437.324".