Tento tutoriál ukáže, ako používať funkciu CDbl VBA na prevod výrazov na dvojitý dátový typ.
Funkcia CDbl
VBA CDbl Previesť výraz na celé číslo
Funkciu Vbl CDbl je možné použiť na konverziu výrazov na dvojitý dátový typ v kóde VBA.
| 123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) 'Výsledok je: 12.345MsgBox CDbl (-124) 'Výsledok je: -124MsgBox CDbl (0,000034) 'Výsledok je: 0,000034MsgBox CDbl (-12.000034) 'Výsledok je: -12.000034Koniec pod |
VBA CDbl Konverzia reťazca na dvojnásobok
Funkciu VBA CDbl je možné použiť na prevod reťazcov na dvojnásobky, ak majú znaky v reťazci význam ako čísla.
| 123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx ako reťazecStrEx = "112"MsgBox CDbl (StrEx)„Výsledok je: 112StrEx = "0,0003"MsgBox CDbl (StrEx)„Výsledok je: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)„Výsledok je: 1100002, sa ignorujeStrEx = "112 dolárov"MsgBox CDbl (StrEx)„Výsledok je: 112 $ sa ignorujeKoniec pod |
Programovanie VBA | Generátor kódu pracuje za vás!
VBA CDbl Chyba spustenia 13 Neshoda typu
Použitie funkcie VBA CDbl so reťazcami, ktoré obsahujú nečíselné znaky alebo znaky, ktoré v číselnom kontexte nemajú význam, bude mať za následok chybu Run-Time ‘13’: Neshoda typu.
| 1234567 | Sub CDblExample_3 ()„Nasledujúci kód spôsobí chybovú správu„CDbl nedokáže spracovať iné ako číselné znakyDim StrEx ako reťazecStrEx = "Ab13"MsgBox CDbl (StrEx)Koniec pod |
Regionálne nastavenia VBA CDbl
Funkcia VBA CDbl má rôzne reťazce na konverziu správania s čiarkou alebo bodkou. Na oddelenie desatinných miest a oddeľovač číslic používa regionálne nastavenia operačného systému.
| 12345678910111213141516 | Sub CDblExample_4 ()Dim StrEx ako reťazecStrEx = "1,9"MsgBox CDbl (StrEx)„Ak to majú regionálne nastavenia, potom ako oddeľovač zoskupeníVýsledok je: 19„Ak to majú regionálne nastavenia, potom ako oddeľovač desatinných miest„Výsledok je: 1,9StrEx = "1,9"MsgBox CDbl (StrEx)„Ak majú regionálne nastavenia. potom ako oddeľovač zoskupeníVýsledok je: 19„Ak majú regionálne nastavenia. potom ako oddeľovač desatinných miest„Výsledok je: 1.9Koniec pod |
VBA CDbl Konverzia booleov na štvorhru
Funkcia VBA CDbl dokáže prevádzať booleovské premenné na štvorhry. Ak je vyhodnotený výraz pravdivý, výsledná dvojka je -1 a ak je vyhodnotený výraz nepravdivá, výsledná dvojka je 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx ako booleovskýBoolEx = PravdaMsgBox CDbl (BoolEx) 'Výsledok je: -1MsgBox CDbl (2 = 2) 'Výsledok je: -1BoolEx = nepravdaMsgBox CDbl (BoolEx) 'Výsledok je: 0MsgBox CDbl (1 = 2) 'Výsledok je: 0Koniec pod |
Ste unavení z hľadania príkladov kódu VBA? Skúste AutoMacro!
VBA CDbl Prevod dátumov na štvorhru
Funkcia VBA CDbl dokáže previesť premennú dátumu na celé číslo. Vrátená hodnota je interné číslo používané programom Excel na zaokrúhlenie úložiska dátumu.
| 123456789101112 | Sub CDblExample_6 ()Dim DateEx As DateDateEx = #2/3/1940 #MsgBox CDbl (DateEx)„Výsledok je: 14644DateEx = #8/7/1964 22:41:00 PM #MsgBox CDbl (DateEx)„Výsledok je: 23596.9451388889DateEx = #3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)„Výsledok je: 12485.4806018519Koniec pod |
