Ez az oktatóanyag bemutatja, hogyan kell használni a CDbl VBA funkciót a kifejezések dupla adattípusra konvertálásához.
CDbl funkció
VBA CDbl Konvertálja az expressziót egész számgá
A VBA CDbl funkcióval kifejezések dupla adattípusokká alakíthatók a VBA kódon belül.
123456 | CDblExample_1 ()MsgBox CDbl (12.345) 'Az eredmény: 12.345MsgBox CDbl (-124) 'Az eredmény: -124MsgBox CDbl (0.000034) 'Az eredmény: 0.000034MsgBox CDbl (-12.000034) 'Az eredmény: -12.000034End Sub |
VBA CDbl karakterlánc duplájára konvertálása
A VBA CDbl funkció segítségével a karakterláncok duplákká konvertálhatók, ha a karakterlánc karaktereinek számértékük van.
123456789101112131415161718 | CDbl. Alpélda_2 ()Dim StrEx karakterlánckéntStrEx = "112"MsgBox CDbl (StrEx)'Az eredmény: 112StrEx = "0,0003"MsgBox CDbl (StrEx)"Az eredmény: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)'Az eredmény: 1100002, figyelmen kívül hagyjaStrEx = "$ 112"MsgBox CDbl (StrEx)'Az eredmény: a 112 dollárt figyelmen kívül hagyjaEnd Sub |
VBA programozás | A kódgenerátor működik az Ön számára!
VBA CDbl Run-Time Error 13 Type Mismatch
Ha a VBA CDbl funkciót olyan karakterláncokkal használja, amelyek nem numerikus karaktereket vagy olyan karaktereket tartalmaznak, amelyeknek nincs értelme a numerikus kontextusban, akkor a futásidejű hiba '13' lesz: A típus nem egyezik.
1234567 | CDblExample_3 ()'Az alábbi kód ERROR üzenetet eredményez"A CDbl nem tudja kezelni a nem numerikus karaktereketDim StrEx karakterlánckéntStrEx = "Ab13"MsgBox CDbl (StrEx)End Sub |
VBA CDbl regionális beállítások
A VBA CDbl függvény karakterláncokat vesszővel vagy ponttal különböző módon konvertálja. Az operációs rendszer regionális beállításait használja a tizedes elválasztáshoz és a számjegy elválasztáshoz.
12345678910111213141516 | CDbl. Alpélda_4 ()Dim StrEx karakterlánckéntStrEx = "1,9"MsgBox CDbl (StrEx)'Ha a regionális beállítások rendelkeznek, csoportosító elválasztóként'Az eredmény: 19'Ha a regionális beállítások vannak, akkor tizedes elválasztó'Az eredmény: 1,9StrEx = "1,9"MsgBox CDbl (StrEx)- Ha a regionális beállítások rendelkeznek. csoportosító elválasztóként akkor'Az eredmény: 19- Ha a regionális beállítások rendelkeznek. tizedes elválasztóként akkor"Az eredmény: 1.9End Sub |
VBA CDbl Booleans konvertálása párosra
A VBA CDbl funkció a logikai változókat duplákká alakíthatja. Ha az értékelt kifejezés igaz, akkor a kapott kettős -1, ha pedig az értékelt kifejezés hamis, a kapott kettős 0.
12345678910 | CDblExample_5 ()Dim BoolEx mint BooleanBoolEx = IgazAz MsgBox CDbl (BoolEx) eredménye: -1MsgBox CDbl (2 = 2) 'Az eredmény: -1BoolEx = HamisAz MsgBox CDbl (BoolEx) eredménye: 0MsgBox CDbl (1 = 2) 'Az eredmény: 0End Sub |
Unod már a VBA kódpéldák keresését? Próbálja ki az AutoMacro -t!
VBA CDbl Dátumok párosra konvertálása
A VBA CDbl funkció egy dátumváltozót egész számgá alakíthat. A visszaadott érték az Excel belső száma, dátum tárolására kerekítve.
123456789101112 | CDblExample_6 ()Dim DateEx dátumkéntDateEx = 1940.03.03.MsgBox CDbl (DateEx)Az eredmény: 14644DateEx = 1964.07.07. 22:41:00 #MsgBox CDbl (DateEx)"Az eredmény: 23596.9451388889DateEx = 1934.07.07. 11:32:04 #MsgBox CDbl (DateEx)"Az eredmény: 12485.4806018519End Sub |