Bu öğretici, CDec VBA işlevinin nasıl kullanılacağını gösterecektir.
CDec İşlevi
VBA CDec İfadeyi Ondalık Sayıya Dönüştür
VBA CDec işlevi, bir ifadeyi ondalık veri türüne dönüştürür. Ondalık veri türü, aslında değişken veri türünün bir alt türüdür.
12345678910 | Alt CDecExample_1()MsgBox CDec(12.34000001)'Sonuç: 12.34000001MsgBox CDec(10000000000012.3)'Sonuç: 10000000000012.3MsgBox CDec(-0.0000000000001)'Sonuç: 0.00000000000000001MsgBox CDec(-12.34)'Sonuç: -12.34Alt Bitiş |
VBA CDec Dizeleri Ondalık Sayılara Dönüştürme
VBA CDec işlevi, dizedeki karakterlerin sayı olarak bir anlamı varsa, dizeleri ondalık sayılara dönüştürmek için kullanılabilir.
12345678910111213141516171819 | Alt CDecExample_2()Dize Olarak Dim StrExStrEx = "112.112112"MsgBox CDec(StrEx)'Sonuç: 112.112112StrEx = "112.3"MsgBox CDec(StrEx)'Sonuç: 112.3StrEx = "11,2"MsgBox CDec(StrEx)'Sonuç: 112 , yoksayıldıStrEx = "112,07$"MsgBox CDec(StrEx)'Sonuç: 112.07 $ yok sayılırAlt Bitiş |
VBA Programlama | Code Generator sizin için çalışıyor!
VBA CDec Çalışma Zamanı Hatası 13 Tür Uyuşmazlığı
Sayısal olmayan karakterler veya sayısal bağlamda anlamı olmayan karakterler içeren dizelerle VBA CDec işlevinin kullanılması, Çalışma Zamanı hatası '13': Tür uyuşmazlığı ile sonuçlanır.
1234567 | Alt CDecExample_3()'Aşağıdaki kod bir HATA mesajıyla sonuçlanacak'CDec sayısal olmayan karakterleri işleyemezDize Olarak Dim StrExStrEx = "Ab13"MsgBox CDec(StrEx)Alt Bitiş |
VBA CDec Çalışma Zamanı Hatası 6 Taşma
VBA CDec işlevinin, beklenen ondalık sayıdan daha küçük veya daha büyük bir değerle sonuçlanan dizelerle kullanılması, Çalışma Zamanı hatası '6': Taşma ile sonuçlanır. Ondalık sayı -7.9 E28 ile +7.9 E28 arasında olmalıdır.
1234567 | Alt CDecExample_4()'Aşağıdaki kod bir HATA mesajıyla sonuçlanacak'CDec, -7.9 E28 ile +7.9 E28 arasındaki sayıları işleyebilirVaryant Olarak Dim StrExStrEx = 8E+30MsgBox CDec(StrEx)Alt Bitiş |
VBA CDec Bölgesel Ayarları
VBA CDec 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 CDecExample_5()Dize Olarak Dim StrExStrEx = "1.0000009"MsgBox CDec(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.0000009StrEx = "1.0000009"MsgBox CDec(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.0000009Alt Bitiş |