Tento tutoriál předvede, jak pomocí funkce CDbl VBA převádět výrazy na dvojitý datový typ.
Funkce CDbl
VBA CDbl Převod výrazu na celé číslo
Funkci Vbl CDbl lze použít k převodu výrazů na dvojitý datový typ uvnitř kódu VBA.
| 123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) 'Výsledek je: 12.345MsgBox CDbl (-124) 'Výsledek je: -124MsgBox CDbl (0,000034) 'Výsledek je: 0,000034MsgBox CDbl (-12.000034) 'Výsledek je: -12.000034End Sub |
VBA CDbl Převod řetězce na dvojnásobek
Funkci Vbl CDbl lze použít k převodu řetězců na zdvojnásobení, pokud mají znaky v řetězci význam jako čísla.
| 123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx jako řetězecStrEx = "112"MsgBox CDbl (StrEx)„Výsledek je: 112StrEx = "0,0003"MsgBox CDbl (StrEx)„Výsledek je: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)„Výsledek je: 1100002, je ignorovánStrEx = "$ 112"MsgBox CDbl (StrEx)„Výsledek je: 112 $ je ignorovánoEnd Sub |
Programování VBA | Generátor kódu pracuje pro vás!
Chyba běhu VBA CDbl 13 Neshoda typu
Použití funkce VBA CDbl s řetězci, které obsahují nečíselné znaky nebo znaky, které nemají v číselném kontextu význam, bude mít za následek chybu Run-Time ‘13’: Neshoda typu.
| 1234567 | Sub CDblExample_3 ()„Níže uvedený kód bude mít za následek chybovou zprávu„CDbl neumí zpracovat jiné než číselné znakyDim StrEx jako řetězecStrEx = "Ab13"MsgBox CDbl (StrEx)End Sub |
Regionální nastavení VBA CDbl
Funkce VBA CDbl má různé chování převádějící řetězce s čárkou nebo tečkou. Používá regionální nastavení operačního systému pro oddělovač desetinných míst a oddělovač číslic.
| 12345678910111213141516 | Sub CDblExample_4 ()Dim StrEx jako řetězecStrEx = "1,9"MsgBox CDbl (StrEx)„Pokud to má místní nastavení, pak jako oddělovač seskupení„Výsledek je: 19„Pokud to má místní nastavení, pak jako oddělovač desetinných míst„Výsledek je: 1,9StrEx = "1,9"MsgBox CDbl (StrEx)"Pokud to má místní nastavení." pak jako oddělovač seskupení„Výsledek je: 19"Pokud to má místní nastavení." jako oddělovač desetinných míst„Výsledek je: 1.9End Sub |
VBA CDbl Převod booleů na čtyřhru
Funkce VBA CDbl dokáže převést booleovské proměnné na čtyřhry. Pokud je vyhodnocený výraz pravdivý, výsledná dvojka je -1 a pokud je vyhodnocený výraz nepravda, výsledná dvojka je 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx As BooleanBoolEx = PravdaMsgBox CDbl (BoolEx) 'Výsledek je: -1MsgBox CDbl (2 = 2) 'Výsledek je: -1BoolEx = FalseMsgBox CDbl (BoolEx) 'Výsledek je: 0MsgBox CDbl (1 = 2) 'Výsledek je: 0End Sub |
Už vás nebaví hledat příklady kódu VBA? Zkuste AutoMacro!
VBA CDbl Převod dat na čtyřhru
Funkce VBA CDbl dokáže převést proměnnou data na celé číslo. Vrácená hodnota je interní číslo používané Excelem pro zaokrouhlení úložiště data.
| 123456789101112 | Sub CDblExample_6 ()Dim DateEx As DateDateEx = #2/3/1940 #MsgBox CDbl (DateEx)„Výsledek je: 14644DateEx = #8/7/1964 22:41:00 PM #MsgBox CDbl (DateEx)„Výsledek je: 23596.9451388889DateEx = #3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)`` Výsledek je: 12485.4806018519End Sub |
