Este tutorial demostrará cómo usar la función CDbl VBA para convertir expresiones a tipos de datos dobles.
Función CDbl
VBA CDbl Convertir expresión a entero
La función VBA CDbl se puede utilizar para convertir expresiones a tipos de datos dobles dentro del código VBA.
| 123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) 'El resultado es: 12.345MsgBox CDbl (-124) 'El resultado es: -124MsgBox CDbl (0.000034) 'El resultado es: 0.000034MsgBox CDbl (-12.000034) 'El resultado es: -12.000034End Sub |
VBA CDbl conversión de cadena a doble
La función VBA CDbl se puede utilizar para convertir cadenas en dobles si los caracteres de la cadena tienen un significado como números.
| 123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx como cadenaStrEx = "112"MsgBox CDbl (StrEx)El resultado es: 112StrEx = "0,0003"MsgBox CDbl (StrEx)'El resultado es: 0.0003StrEx = "11,00002"MsgBox CDbl (StrEx)'El resultado es: 1100002, se ignoraStrEx = "$ 112"MsgBox CDbl (StrEx)El resultado es: 112 $ se ignoraEnd Sub |
Programación VBA | ¡Code Generator funciona para usted!
Error de tiempo de ejecución de VBA CDbl 13 No coinciden los tipos
El uso de la función VBA CDbl con cadenas que contienen caracteres no numéricos o caracteres que no tienen significado en el contexto numérico dará como resultado un error de tiempo de ejecución "13": no coinciden los tipos.
| 1234567 | Sub CDblExample_3 ()'El código a continuación resultará en un mensaje de ERROR'CDbl no puede manejar caracteres no numéricosDim StrEx como cadenaStrEx = "Ab13"MsgBox CDbl (StrEx)End Sub |
Configuración regional de VBA CDbl
La función VBA CDbl tiene un comportamiento diferente al convertir cadenas con coma o punto. Utiliza la configuración regional del sistema operativo para el separador decimal y el separador de dígitos.
| 12345678910111213141516 | Sub CDblExample_4 ()Dim StrEx como cadenaStrEx = "1,9"MsgBox CDbl (StrEx)'Si la configuración regional tiene, como separador de agrupación,El resultado es: 19'Si la configuración regional tiene, como separador decimal,El resultado es: 1,9StrEx = "1.9"MsgBox CDbl (StrEx)'Si la configuración regional tiene. como un separador de agrupación entoncesEl resultado es: 19'Si la configuración regional tiene. como separador decimal entonces'El resultado es: 1.9End Sub |
VBA CDbl Conversión de valores booleanos en dobles
La función VBA CDbl puede convertir variables booleanas en dobles. Si la expresión evaluada es verdadera, el doble resultante es -1 y si la expresión evaluada es falsa, el doble resultante es 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx como booleanoBoolEx = VerdaderoMsgBox CDbl (BoolEx) 'El resultado es: -1MsgBox CDbl (2 = 2) 'El resultado es: -1BoolEx = FalsoMsgBox CDbl (BoolEx) 'El resultado es: 0MsgBox CDbl (1 = 2) 'El resultado es: 0End Sub |
¿Cansado de buscar ejemplos de código VBA? ¡Prueba AutoMacro!
VBA CDbl Conversión de fechas a dobles
La función VBA CDbl puede convertir una variable de fecha en un número entero. El valor devuelto es el número interno utilizado por Excel para el almacenamiento de fechas redondeado.
| 123456789101112 | Sub CDblExample_6 ()Dim DateEx como fechaDateEx = # 2/3/1940 #MsgBox CDbl (DateEx)El resultado es: 14644DateEx = # 8/7/1964 10:41:00 PM #MsgBox CDbl (DateEx)El resultado es: 23596.9451388889DateEx = # 3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)El resultado es: 12485.4806018519End Sub |
