Tämä opetusohjelma osoittaa, kuinka CDec VBA -toimintoa käytetään.
CDec -toiminto
VBA CDec Muunna lauseke desimaaliksi
VBA CDec -toiminto muuntaa lausekkeen desimaalitietotyypiksi. Desimaalitietotyyppi on itse asiassa varianttityypin alatyyppi.
12345678910 | Ala -CDecExample_1 ()MsgBox CDec (12.34000001)'Tulos: 12.34000001MsgBox CDec (10000000000012.3)'Tulos: 10000000000012,3MsgBox CDec (-0.00000000000001)'Tulos: -0.00000000000001MsgBox CDec (-12,34)'Tulos: -12,34End Sub |
VBA CDec muuntaa merkkijonot desimaaleiksi
VBA CDec -toimintoa voidaan käyttää merkkijonojen muuntamiseen desimaaleiksi, jos merkkijonolla on merkitys numeroina.
12345678910111213141516171819 | Ala -CDecExample_2 ()Dim StrEx merkkijononaStrEx = "112.112112"MsgBox CDec (StrEx)'Tulos: 112.112112StrEx = "112,3"MsgBox CDec (StrEx)'Tulos: 112,3StrEx = "11,2"MsgBox CDec (StrEx)'Tulos: 112, jätetään huomiottaStrEx = "112,07 dollaria"MsgBox CDec (StrEx)'Tulos: 112,07 $ jätetään huomiottaEnd Sub |
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
VBA CDec ajonaikainen virhe 13 Tyyppivirhe
Jos käytät VBA CDec -toimintoa merkkijonojen kanssa, jotka sisältävät ei-numeerisia merkkejä tai merkkejä, joilla ei ole merkitystä numeerisessa kontekstissa, tuloksena on ajonaikainen virhe '13': Tyyppivirhe.
1234567 | Ala -CDecExample_3 ()'Alla oleva koodi johtaa ERROR -viestiin'CDec ei voi käsitellä muita kuin numeerisia merkkejäDim StrEx merkkijononaStrEx = "Ab13"MsgBox CDec (StrEx)End Sub |
VBA CDec Run-Time Error 6 Overflow
Jos käytät VBA CDec -toimintoa merkkijonojen kanssa, joiden arvo on pienempi tai suurempi kuin odotettu desimaali, tuloksena on ajonaikainen virhe '6': Ylivuoto. Desimaaliluvun tulee olla välillä -7,9 E28 ja +7,9 E28.
1234567 | Osa CDecExample_4 ()'Alla oleva koodi johtaa ERROR -viestiin'CDec voi käsitellä numeroita välillä -7,9 E28 -+7,9 E28Dim StrEx VaihtoehtonaStrEx = 8E+30MsgBox CDec (StrEx)End Sub |
VBA CDec: n alueelliset asetukset
VBA CDec -toiminnolla on erilaiset käyttäytymisen muuntavat merkkijonot pilkulla tai pisteellä. Se käyttää käyttöjärjestelmän alueasetuksia desimaalierottimelle ja numeroerottimelle.
12345678910111213141516 | Osa CDecExample_5 ()Dim StrEx merkkijononaStrEx = "1,0000009"MsgBox CDec (StrEx)'Jos alueellisissa asetuksissa on, ryhmittelyerottimena'Tulos: 19'Jos alueellisissa asetuksissa on, desimaalierottimena'Tulos: 1.0000009StrEx = "1.0000009"MsgBox CDec (StrEx)'Jos alueellisissa asetuksissa on. ryhmittelyerottimena sitten'Tulos: 19'Jos alueellisissa asetuksissa on. sitten desimaalierottimena'Tulos: 1.0000009End Sub |