Ten samouczek pokaże, jak korzystać z funkcji CDec VBA.
Funkcja CDec
VBA CDec Konwertuj wyrażenie na dziesiętny
Funkcja VBA CDec konwertuje wyrażenie na dziesiętny typ danych. Typ danych dziesiętnych jest w rzeczywistości podtypem typu danych wariantowych.
| 12345678910 | Pod CDecPrzykład_1()MsgBox CDec(12.34000001)„Wynik to: 12.34000001”MsgBox CDec(10000000000012.3)'Wynik to: 100000000000012.3MsgBox CDec (-0.00000000000001)'Wynik to: -0.00000000000001MsgBox CDec(-12.34)„Wynik to: -12,34”Napis końcowy |
VBA CDec Konwersja ciągów na dziesiętne
Funkcja VBA CDec może służyć do konwersji ciągów na ułamki dziesiętne, jeśli znaki w ciągu mają znaczenie liczbowe.
| 12345678910111213141516171819 | Pod CDecPrzykład_2()Dim StrEx jako ciągSTREX = "112.112112"MsgBox CDec(StrEx)„Wynik to: 112.112112”StrEx = "112.3"MsgBox CDec(StrEx)„Wynik to: 112,3”StrEx = "11,2"MsgBox CDec(StrEx)'Wynik to: 112 , jest ignorowanyStrEx = "112,07 USD"MsgBox CDec(StrEx)'Wynik to: 112,07 $ jest ignorowaneNapis końcowy |
Programowanie VBA | Generator kodu działa dla Ciebie!
Błąd wykonania VBA CDec 13 Niezgodność typów
Użycie funkcji VBA CDec z ciągami zawierającymi znaki nieliczbowe lub znaki, które nie mają znaczenia w kontekście numerycznym, spowoduje błąd wykonania „13”: Niezgodność typu.
| 1234567 | Pod CDecPrzykład_3()'Poniższy kod spowoduje wyświetlenie komunikatu BŁĄD'CDec nie obsługuje znaków nienumerycznychDim StrEx jako ciągStrEx = "Ab13"MsgBox CDec(StrEx)Napis końcowy |
Błąd wykonania VBA CDec 6 Przepełnienie
Użycie funkcji VBA CDec z ciągami, których wynikiem jest wartość mniejsza lub większa niż oczekiwany dziesiętny, spowoduje błąd wykonania „6”: Przepełnienie. Liczba dziesiętna powinna wynosić od -7,9 E28 do +7,9 E28.
| 1234567 | Pod CDecPrzykład_4()'Poniższy kod spowoduje wyświetlenie komunikatu BŁĄD'CDec obsługuje liczby od -7,9 E28 do +7,9 E28Dim StrEx jako wariantStrEx = 8E+30MsgBox CDec(StrEx)Napis końcowy |
Ustawienia regionalne VBA CDec
Funkcja VBA CDec zachowuje się inaczej, konwertując ciągi znaków z przecinkiem lub kropką. Używa ustawień regionalnych systemu operacyjnego dla separatora dziesiętnego i separatora cyfr.
| 12345678910111213141516 | Pod CDecPrzykład_5()Dim StrEx jako ciągStrEx = "1,0000009"MsgBox CDec(StrEx)'Jeżeli ustawienia regionalne mają , jako separator grupowania, to„Wynik to: 19”'Jeśli ustawienia regionalne mają jako separator dziesiętny, to''Wynik to: 1.00000009StrEx = "1.00000009"MsgBox CDec(StrEx)'Jeśli ustawienia regionalne mają . w takim razie jako separator grupujący„Wynik to: 19”'Jeśli ustawienia regionalne mają . jako separator dziesiętny wtedy'Wynik to: 1.00000009Napis końcowy |
