FUNCIONES DE CONVERSIÓN

1.CStr()

En este ejemplo se utiliza la función CStr() para convertir un valor numérico a uno de tipo String (alfanumérico o texto).

Dim MyDouble As Double, MyString
MyDouble = 437.324   ' MyDouble is a Double.
MyString = CStr(MyDouble)   ' MyString contains "437.324".

2. CInt()

En este ejemplo se utiliza la función CInt() para convertir un valor real a uno de tipo entero.

Dim MyDouble As Double, MyInt
MyDouble = 2345.5678   ' MyDouble is a Double.
MyInt = CInt(MyDouble)   ' MyInt contains 2346.

 3.CDbl()

En este ejemplo se utiliza la función CDbl() para convertir una expresión numérica válida a un tipo de datos Double.

Dim MyCurr As Currency, MyDouble
MyCurr = CCur(234.456784)   ' MyCurr is a Currency.
MyDouble = CDbl(MyCurr * 8.2 * 0.01)   ' Convert result to a Double. 

4. CDate()

Aquí, en este ejemplo, se utiliza la función CDate() para convertir un string, que contiene un formato de fecha y/u horario, a un tipo de datos Date. En general, no se recomienda el uso de strings (cadenas de caracteres) que contengan información de fechas y de horas, porque no son estándares en las diversas plataformas. Es recomendable utilizar literales de fecha y literales de horas, tales como: #2/12/1969# y #4:45:23 PM#.

Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969"   ' Define date.
MyShortDate = CDate(MyDate)   ' Convert to Date data type.

MyTime = "4:35:47 PM"   ' Define time.
MyShortTime = CDate(MyTime)   ' Convert to Date data type.