Aprenda de uma forma simples , objetiva e direta os ... - Macoratti.net

Curso de Introdução a Plataforma .Net FrameWork SDK
Dim MyDouble As Double
Dim MyByte As Byte
MyDouble = 125.5678
MyByte = CByte(MyDouble) ' MyByte recebe 126.
Dim MyString As String
Dim MyChar As Char
MyString = "BCD" ' CChar converte somente o primeiro caracter do string.
MyChar = CChar(MyString) ' MyChar recebe "B".
Dim MyDateString, MyTimeString As String
Dim MyDate, MyTime As Date
MyDateString = "February 12, 1969"
MyTimeString = "4:35:47 PM"
' ...
MyDate = CDate(MyDateString) ' Converte para Data.
MyTime = CDate(MyTimeString) ' Converte para Data.
Dim MyDec As Decimal
Dim MyDouble As Double
MyDec = 234.456784D
MyDouble = CDbl(MyDec * 8.2D * 0.01D) ' Converte o resultado para Double.
Dim MyDouble As Double
Dim MyDecimal As Decimal
MyDouble = 10000000.0587
MyDecimal = CDec(MyDouble) ' Converte para Decimal.
Dim MyDouble As Double
Dim MyInt As Integer
MyDouble = 2345.5678
MyInt = CInt(MyDouble) ' MyInt recebe 2346.
Dim MyDbl1, MyDbl2 As Double
Dim MyLong1, MyLong2 As Long
MyDbl1 = 25427.45
MyDbl2 = 25427.55
MyLong1 = CLng(MyDbl1) ' MyLong1 recebe 25427.
MyLong2 = CLng(MyDbl2) ' MyLong2 recebe 25428.
39