See õpetus näitab, kuidas kasutada funktsiooni CDec VBA.
CDec funktsioon
VBA CDec Teisenda avaldis kümnendkohaks
Funktsioon VBA CDec teisendab avaldise kümnendandmetüübiks. Kümnendandmetüüp on tegelikult varianditüübi alamtüüp.
12345678910 | Alam -CDecExample_1 ()MsgBox CDec (12.34000001)Tulemus: 12.34000001MsgBox CDec (10000000000012.3)"Tulemus: 10000000000012,3MsgBox CDec (-0.00000000000001)Tulemus on: -0.00000000000001MsgBox CDec (-12,34)Tulemus: -12,34End Sub |
VBA CDec stringide teisendamine kümnendkohtadeks
Funktsiooni VBA CDec saab kasutada stringide teisendamiseks kümnendkohtadeks, kui stringi märkidel on numbrite tähendus.
12345678910111213141516171819 | Alam -CDecExample_2 ()Dim StrEx stringinaStrEx = "112.112112"MsgBox CDec (StrEx)"Tulemus: 112.112112StrEx = "112,3"MsgBox CDec (StrEx)"Tulemus: 112,3StrEx = "11,2"MsgBox CDec (StrEx)'Tulemus on: 112, ignoreeritakseStrEx = "112,07 dollarit"MsgBox CDec (StrEx)'Tulemus on: 112,07 $ eiratakseEnd Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
VBA CDeci käitustõrge 13 Tüübi mittevastavus
Funktsiooni VBA CDec kasutamine stringidega, mis sisaldavad mitte-numbrilisi märke või märke, millel pole numbrilises kontekstis tähendust, põhjustab käitusaja vea „13”: tüübi mittevastavus.
1234567 | Alam -CDecExample_3 ()'Allolev kood annab veateate"CDec ei saa hakkama mitte-numbriliste märkidegaDim StrEx stringinaStrEx = "Ab13"MsgBox CDec (StrEx)End Sub |
VBA CDec Run-Time Error 6 Overflow
Funktsiooni VBA CDec kasutamine stringidega, mille tulemuseks on oodatud kümnendkohast väiksem või suurem väärtus, põhjustab käivitusaja vea „6”. Kümnendarv peaks olema vahemikus -7,9 E28 kuni +7,9 E28.
1234567 | Alam -CDecExample_4 ()'Allolev kood annab veateateCDec saab hakkama numbritega vahemikus -7,9 E28 kuni +7,9 E28Dim StrEx VariandinaStrEx = 8E+30MsgBox CDec (StrEx)End Sub |
VBA CDec piirkondlikud sätted
Funktsioonil VBA CDec on erineva käitumisega teisendavad stringid koma või punktiga. See kasutab kümnend- ja numbrite eraldaja jaoks operatsioonisüsteemi piirkondlikke seadeid.
12345678910111213141516 | Alam -CDecExample_5 ()Dim StrEx stringinaStrEx = "1,0000009"MsgBox CDec (StrEx)"Kui piirkondlikel seadetel on, siis rühmituse eraldajana"Tulemus: 19„Kui piirkondlikel seadistustel on see komakoha eraldajanaTulemus: 1.0000009StrEx = "1.0000009"MsgBox CDec (StrEx)„Kui piirkondlikel seadetel on. rühmituse eraldajana siis"Tulemus: 19„Kui piirkondlikel seadetel on. komaeraldajana siisTulemus: 1.0000009End Sub |