Ce didacticiel montrera comment utiliser la fonction CDbl VBA pour convertir des expressions en type de données double.
Fonction CDbl
VBA CDbl Convertir l'expression en entier
La fonction VBA CDbl peut être utilisée pour convertir des expressions en double type de données dans le code VBA.
| 123456 | Sous CDblExample_1()MsgBox CDbl(12.345) 'Le résultat est : 12.345MsgBox CDbl(-124) 'Le résultat est : -124MsgBox CDbl(0.000034) 'Le résultat est : 0.000034MsgBox CDbl(-12.000034) 'Le résultat est : -12.000034Fin du sous-marin |
VBA CDbl Conversion de chaîne en double
La fonction VBA CDbl peut être utilisée pour convertir des chaînes en doubles si les caractères de la chaîne ont une signification sous forme de nombres.
| 123456789101112131415161718 | Sous CDblExample_2()Dim StrEx en tant que chaîneStrEx = "112"MsgBox CDbl(StrEx)'Le résultat est : 112StrEx = "0,0003"MsgBox CDbl(StrEx)'Le résultat est : 0,0003StrEx = "11 00002"MsgBox CDbl(StrEx)'Le résultat est : 1100002 , est ignoréStrEx = " 112 $"MsgBox CDbl(StrEx)'Le résultat est : 112 $ est ignoréFin du sous-marin |
Programmation VBA | Le générateur de code fonctionne pour vous !
Erreur d'exécution VBA CDbl 13 non-concordance de type
L'utilisation de la fonction VBA CDbl avec des chaînes contenant des caractères non numériques ou des caractères qui n'ont pas de sens dans un contexte numérique entraînera une erreur d'exécution « 13 » : incompatibilité de type.
| 1234567 | Sous CDblExample_3()'Le code ci-dessous entraînera un message d'ERREUR'CDbl ne peut pas gérer les caractères non numériquesDim StrEx en tant que chaîneStrEx = "Ab13"MsgBox CDbl(StrEx)Fin du sous-marin |
Paramètres régionaux VBA CDbl
La fonction VBA CDbl a un comportement différent en convertissant les chaînes avec une virgule ou un point. Il utilise les paramètres régionaux du système d'exploitation pour le séparateur décimal et le séparateur de chiffres.
| 12345678910111213141516 | Sous CDblExample_4()Dim StrEx en tant que chaîneStrEx = "1,9"MsgBox CDbl(StrEx)'Si les paramètres régionaux ont , comme séparateur de regroupement alors'Le résultat est : 19'Si les paramètres régionaux ont , comme séparateur décimal alors'Le résultat est : 1,9StrEx = "1.9"MsgBox CDbl(StrEx)'Si les paramètres régionaux ont . comme séparateur de regroupement alors'Le résultat est : 19'Si les paramètres régionaux ont . comme séparateur décimal alors'Le résultat est : 1,9Fin du sous-marin |
VBA CDbl Conversion de booléens en doubles
La fonction VBA CDbl peut convertir des variables booléennes en doubles. Si l'expression évaluée est vraie, le double résultant est -1 et si l'expression évaluée est fausse, le double résultant est 0.
| 12345678910 | Sous CDblExample_5()Dim BoolEx en tant que booléenBoolEx = VraiMsgBox CDbl(BoolEx) 'Le résultat est : -1MsgBox CDbl(2 = 2) 'Le résultat est : -1BoolEx = FauxMsgBox CDbl(BoolEx) 'Le résultat est : 0MsgBox CDbl(1 = 2) 'Le résultat est : 0Fin du sous-marin |
Fatigué de rechercher des exemples de code VBA ? Essayez AutoMacro !
VBA CDbl Conversion de dates en doubles
La fonction VBA CDbl peut convertir une variable de date en un entier. La valeur renvoyée est le numéro interne utilisé par Excel pour le stockage de la date arrondie.
| 123456789101112 | Sous CDblExample_6()Dim DateEx As DateDateEx = #2/3/1940#MsgBox CDbl(DateEx)'Le résultat est : 14644DateEx = #8/7/1964 22:41:00 #MsgBox CDbl(DateEx)'Le résultat est : 23596.9451388889DateEx = #3/7/1934 11:32:04 AM#MsgBox CDbl(DateEx)'Le résultat est : 12485.4806018519Fin du sous-marin |
