Този урок ще покаже как да използвате функцията CDec VBA.
Функция CDec
VBA CDec Конвертира израза в десетично
Функцията VBA CDec преобразува израз в десетичен тип данни. Десетичният тип данни всъщност е подтип на варианта тип данни.
| 12345678910 | Под CDecExample_1 ()MsgBox CDec (12.34000001)„Резултатът е: 12.34000001MsgBox CDec (10000000000012.3)„Резултатът е: 10000000000012.3MsgBox CDec (-0.00000000000001)„Резултатът е: -0.00000000000001MsgBox CDec (-12,34)'Резултатът е: -12.34End Sub |
VBA CDec Конвертиране на низове в десетични знаци
Функцията VBA CDec може да се използва за преобразуване на низове в десетични знаци, ако символите в низа имат значение като числа.
| 12345678910111213141516171819 | Под CDecExample_2 ()Dim StrEx As StringStrEx = "112.112112"MsgBox CDec (StrEx)„Резултатът е: 112.112112StrEx = "112.3"MsgBox CDec (StrEx)„Резултатът е: 112.3StrEx = "11,2"MsgBox CDec (StrEx)'Резултатът е: 112, се игнорираStrEx = "$ 112.07"MsgBox CDec (StrEx)„Резултатът е: 112.07 $ се игнорираEnd Sub |
VBA програмиране | Code Generator работи за вас!
VBA CDec Грешка по време на изпълнение 13 Тип несъответствие
Използването на VBA CDec функция с низове, които съдържат нечислови знаци или знаци, които нямат значение в числовия контекст, ще доведе до грешка по време на изпълнение „13“: Несъответствие на типа.
| 1234567 | Sub CDecExample_3 ()„Кодът по -долу ще доведе до съобщение за ГРЕШКА'CDec не може да обработва нечислови знациDim StrEx As StringStrEx = "Ab13"MsgBox CDec (StrEx)End Sub |
VBA CDec Грешка по време на изпълнение 6 Препълване
Използването на VBA CDec функция с низове, които водят до стойност, по-малка или по-голяма от очакваната десетична стойност, ще доведе до грешка при изпълнение „6“: Препълване. Десетичното число трябва да бъде между -7.9 E28 и +7.9 E28.
| 1234567 | Под CDecExample_4 ()„Кодът по -долу ще доведе до съобщение за ГРЕШКА„CDec може да обработва числа между -7.9 E28 и +7.9 E28Dim StrEx като вариантStrEx = 8E+30MsgBox CDec (StrEx)End Sub |
Регионални настройки на VBA CDec
Функцията VBA CDec има различно поведение, преобразуващо низове със запетая или точка. Той използва регионалните настройки на операционната система за десетичен разделител и разделител на цифри.
| 12345678910111213141516 | Под CDecExample_5 ()Dim StrEx As StringStrEx = "1,0000009"MsgBox CDec (StrEx)„Ако регионалните настройки имат, като разделител за групиране тогаваРезултатът е: 19„Ако регионалните настройки имат, като десетичен разделител, тогава„Резултатът е: 1.0000009StrEx = "1.0000009"MsgBox CDec (StrEx)„Ако регионалните настройки имат. като разделител за групиране тогаваРезултатът е: 19„Ако регионалните настройки имат. като десетичен разделител тогава„Резултатът е: 1.0000009End Sub |
