Ten samouczek pokaże, jak używać funkcji CDbl VBA do konwertowania wyrażeń na podwójny typ danych.
Funkcja CDbl
VBA CDbl Konwertuj wyrażenie na liczbę całkowitą
Funkcja VBA CDbl może służyć do konwersji wyrażeń na podwójny typ danych w kodzie VBA.
| 123456 | Sub CDblPrzykład_1()MsgBox CDbl(12.345) 'Wynik: 12.345MsgBox CDbl(-124) 'Wynik to: -124MsgBox CDbl(0.000034) 'Wynik to: 0.000034MsgBox CDbl(-12.000034) 'Wynik to: -12.000034Napis końcowy |
VBA CDbl Konwersja ciągu na Double
Funkcji VBA CDbl można użyć do konwersji ciągów na podwajane, jeśli znaki w ciągu mają znaczenie liczbowe.
| 123456789101112131415161718 | Sub CDblPrzykład_2()Dim StrEx jako ciągStrEx = "112"MsgBox CDbl(StrEx)„Wynik to: 112”StrEx = "0,0003"MsgBox CDbl(StrEx)"Wynik to: 0,0003"StrEx = "11 00002"MsgBox CDbl(StrEx)'Wynik to: 1100002 , jest ignorowanyStrEx = "112 USD"MsgBox CDbl(StrEx)'Wynik: 112 $ jest ignorowaneNapis końcowy |
Programowanie VBA | Generator kodu działa dla Ciebie!
Błąd wykonania VBA CDbl 13 Niezgodność typu
Użycie funkcji VBA CDbl 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 | Sub CDblPrzykład_3()'Poniższy kod spowoduje wyświetlenie komunikatu BŁĄD'CDbl nie obsługuje znaków nieliczbowychDim StrEx jako ciągStrEx = "Ab13"MsgBox CDbl(StrEx)Napis końcowy |
Ustawienia regionalne VBA CDbl
Funkcja VBA CDbl 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 | Sub CDblPrzykład_4()Dim StrEx jako ciągWysiłek = "1,9"MsgBox CDbl(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,9”StrEx = "1,9"MsgBox CDbl(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,9”Napis końcowy |
VBA CDbl Konwertowanie wartości logicznych na dublety
Funkcja VBA CDbl może konwertować zmienne logiczne na dublety. Jeśli oceniane wyrażenie jest prawdziwe, wynikowa podwójna wynosi -1, a jeśli oceniane wyrażenie jest fałszywe, wynikowa podwójna jest równa 0.
| 12345678910 | Sub CDblPrzykład_5()Dim BoolEx jako BooleanBoolEx = PrawdaMsgBox CDbl(BoolEx) 'Wynik to: -1MsgBox CDbl(2 = 2) 'Wynik: -1BoolEx = FałszMsgBox CDbl(BoolEx) 'Wynik to: 0MsgBox CDbl(1 = 2) 'Wynik: 0Napis końcowy |
Masz dość wyszukiwania przykładów kodu VBA? Wypróbuj Automakro!
VBA CDbl Konwertowanie dat na dublety
Funkcja VBA CDbl może konwertować zmienną daty na liczbę całkowitą. Zwracana wartość to zaokrąglona liczba wewnętrzna używana przez program Excel do przechowywania dat.
| 123456789101112 | Sub CDblPrzykład_6()Dim DateEx As DateDataEx = #2/3/1940#MsgBox CDbl(DateEx)„Wynik to: 14644”DataEx = 8.07.1964 22:41:00 #MsgBox CDbl(DateEx)„Wynik to: 23596.9451388889”DataEx = #3/7/1934 11:32:04 AM#MsgBox CDbl(DateEx)„Wynik to: 12485.4806018519”Napis końcowy |
