Ši pamoka parodys, kaip naudotis CDec VBA funkcija.
CDec funkcija
VBA CDec Konvertuoti išraišką į dešimtainę
Funkcija VBA CDec konvertuoja išraišką į dešimtainį duomenų tipą. Dešimtainis duomenų tipas iš tikrųjų yra varianto duomenų tipo potipis.
12345678910 | Antrasis CDecExample_1 ()„MsgBox CDec“ (12.34000001)Rezultatas: 12.34000001„MsgBox CDec“ (10000000000012.3)„Rezultatas: 10000000000012.3„MsgBox CDec“ (-0.00000000000001)Rezultatas: -0.00000000000001„MsgBox CDec“ (–12,34)Rezultatas: -12,34Pabaiga Sub |
VBA CDec konvertuoja eilutes į dešimtainius
Funkcija VBA CDec gali būti naudojama konvertuoti eilutes į dešimtainius skaičius, jei eilutės simboliai turi reikšmę kaip skaičiai.
12345678910111213141516171819 | CDecExample_2 ()„Dim StrEx“ kaip eilutėStrEx = "112.112112"„MsgBox CDec“ („StrEx“)„Rezultatas: 112.112112StrEx = "112,3"„MsgBox CDec“ („StrEx“)„Rezultatas: 112,3StrEx = "11,2"„MsgBox CDec“ („StrEx“)„Rezultatas: 112, ignoruojamas„StrEx“ = „112,07 USD“„MsgBox CDec“ („StrEx“)'Rezultatas: 112,07 $ ignoruojamasPabaiga Sub |
VBA programavimas | Kodo generatorius jums tinka!
VBA CDec vykdymo laiko klaida 13 Tipo neatitikimas
Naudojant „VBA CDec“ funkciją su eilutėmis, kuriose yra neskaitinių simbolių ar simbolių, neturinčių reikšmės skaitiniame kontekste, atsiras vykdymo laiko klaida „13“: tipo neatitikimas.
1234567 | CDecExample_3 ()„Žemiau pateiktas kodas parodys klaidos pranešimą„CDec negali apdoroti neskaitinių simbolių„Dim StrEx“ kaip eilutėStrEx = "Ab13"„MsgBox CDec“ („StrEx“)Pabaiga Sub |
VBA CDec vykdymo laiko klaida 6 perpildymas
Naudojant „VBA CDec“ funkciją su eilutėmis, kurių vertė yra mažesnė arba didesnė už numatytą dešimtainį skaičių, atsiras vykdymo laiko klaida „6“: perpildymas. Dešimtainis skaičius turėtų būti nuo -7,9 E28 iki +7,9 E28.
1234567 | CDecExample_4 ()„Žemiau pateiktas kodas parodys klaidos pranešimą„CDec gali apdoroti skaičius nuo -7,9 E28 iki +7,9 E28„Dim StrEx“ kaip variantasStrEx = 8E+30„MsgBox CDec“ („StrEx“)Pabaiga Sub |
VBA CDec regioniniai nustatymai
VBA CDec funkcija turi skirtingą elgesį, konvertuojančią eilutes kableliais ar taškais. Jis naudoja operacinės sistemos regioninius nustatymus dešimtainiam ir skaitmenų skyrikliui.
12345678910111213141516 | CDecExample_5 ()„Dim StrEx“ kaip eilutėStrEx = "1,0000009"„MsgBox CDec“ („StrEx“)„Jei yra regioniniai nustatymai, tada kaip grupavimo atskyriklis„Rezultatas: 19„Jei regioniniai nustatymai turi, kaip dešimtainis skyriklis, tadaRezultatas: 1.0000009StrEx = "1.0000009"„MsgBox CDec“ („StrEx“)„Jei regioniniai nustatymai turi. kaip grupavimo atskyrėjas tada„Rezultatas: 19„Jei regioniniai nustatymai turi. kaip dešimtainis skyriklis tadaRezultatas: 1.0000009Pabaiga Sub |