Bu öğretici, ifadeleri çift veri türüne dönüştürmek için CDbl VBA işlevinin nasıl kullanılacağını gösterecektir.
CDbl İşlevi
VBA CDbl İfadeyi Tamsayıya Dönüştür
VBA CDbl işlevi, ifadeleri VBA kodu içinde çift veri türüne dönüştürmek için kullanılabilir.
| 123456 | Alt CDblÖrnek_1()MsgBox CDbl(12.345) 'Sonuç: 12.345MsgBox CDbl(-124) 'Sonuç: -124MsgBox CDbl(0.000034) 'Sonuç: 0.000034MsgBox CDbl(-12.000034) 'Sonuç: -12.000034Alt Bitiş |
VBA CDbl Dizeyi Çifte Dönüştürme
VBA CDbl işlevi, dizedeki karakterlerin sayı olarak bir anlamı varsa, dizeleri iki katına dönüştürmek için kullanılabilir.
| 123456789101112131415161718 | Alt CDblÖrnek_2()Dize Olarak Dim StrExStEx = "112"MsgBox CDbl(StrEx)'Sonuç: 112StrEx = "0,0003"MsgBox CDbl(StrEx)'Sonuç: 0.0003StrEx = "11.0002"MsgBox CDbl(StrEx)'Sonuç: 1100002 , yoksayıldıStrEx = "112$"MsgBox CDbl(StrEx)'Sonuç: 112 $ yok sayılırAlt Bitiş |
VBA Programlama | Code Generator sizin için çalışıyor!
VBA CDbl Çalışma Zamanı Hatası 13 Tip Uyuşmazlığı
Sayısal olmayan karakterler veya sayısal bağlamda anlamı olmayan karakterler içeren dizelerle VBA CDbl işlevinin kullanılması, Çalışma Zamanı hatası '13': Tür uyuşmazlığı ile sonuçlanır.
| 1234567 | Alt CDblÖrnek_3()'Aşağıdaki kod bir HATA mesajıyla sonuçlanacak'CDbl sayısal olmayan karakterleri işleyemezDize Olarak Dim StrExStrEx = "Ab13"MsgBox CDbl(StrEx)Alt Bitiş |
VBA CDbl Bölgesel Ayarları
VBA CDbl işlevi, dizeleri virgül veya nokta ile dönüştüren farklı davranışlara sahiptir. Ondalık ayırıcı ve rakam ayırıcı için işletim sisteminin Bölgesel Ayarlarını kullanır.
| 12345678910111213141516 | Alt CDblÖrnek_4()Dize Olarak Dim StrExStrEx = "1,9"MsgBox CDbl(StrEx)'Bölgesel ayarlarda gruplama ayırıcısı varsa, o zaman'Sonuç: 19'Bölgesel ayarlarda ondalık ayırıcı olarak varsa'Sonuç: 1,9StrEx = "1.9"MsgBox CDbl(StrEx)'Bölgesel ayarlar varsa . o zaman gruplandırma ayırıcı olarak'Sonuç: 19'Bölgesel ayarlar varsa . ondalık ayırıcı olarak'Sonuç: 1.9Alt Bitiş |
VBA CDbl Booleanları Çiftlere Dönüştürme
VBA CDbl işlevi, boole değişkenlerini iki katına dönüştürebilir. Değerlendirilen ifade doğruysa, elde edilen çift -1'dir ve değerlendirilen ifade yanlışsa, elde edilen çift 0'dır.
| 12345678910 | Alt CDblÖrnek_5()Boole Olarak Dim BoolExBoolEx = DoğruMsgBox CDbl(BoolEx) 'Sonuç: -1MsgBox CDbl(2 = 2) 'Sonuç: -1BoolEx = YanlışMsgBox CDbl(BoolEx) 'Sonuç: 0MsgBox CDbl(1 = 2) 'Sonuç: 0Alt Bitiş |
VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!
VBA CDbl Tarihleri Çiftlere Dönüştürme
VBA CDbl işlevi, bir tarih değişkenini bir tam sayıya dönüştürebilir. Döndürülen değer, Excel tarafından yuvarlanmış tarih depolaması için kullanılan dahili sayıdır.
| 123456789101112 | Alt CDblExample_6()Dim DateEx As DateDateEx = #2/3/1940#MsgBox CDbl(DateEx)'Sonuç: 14644DateEx = #8/7/1964 22:41:00 PM#MsgBox CDbl(DateEx)'Sonuç: 23596.9451388889DateEx = #3/7/1934 11:32:04 AM#MsgBox CDbl(DateEx)'Sonuç: 12485.4806018519Alt Bitiş |
