Как заюзать Decimal?

[0xy]

Decimal +/-79 228 162 514 264 337 593 543 950 335 без масштабирования, т.е. для чисел без дробной части. Диапазон чисел с 28 знаками в дробной части
+/-7,9228162514264337593543950335. Минимальное ненулевое число 0,0000000000000000000000000001.

Однако на практике все не так просто
Если написать:

Код: Выделить всё

Dim a
a=1234567890123456789012345678
' или
a=cdec(1234567890123456789012345678)

то VB тут же исправит по-своему, и получим:

Код: Выделить всё

a=1.23456789012346E+27
a=cdec(1.23456789012346E+27)


В последнем случае даже успешно получаем подтип Decimal Только толку с того!

[alibek]

Храни числа в строках или в вариантах.

[Andrey Fedorov]

Храни числа в строках или в вариантах.

А у него они и хранятся в варианте. Просто присваивать в его случае надо так:

Код: Выделить всё

    Dim i1, i2, i3
   
    i1 = CDec("1234567890123456789012345678,2")
   
    i2 = i1 * 3
   
    i3 = i2 - i1 - i1
   
    Debug.Print
    Debug.Print "i1 = " & i1
    Debug.Print "i2 = " & i2
    Debug.Print "i3 = " & i3


Результат:

i1 = 1234567890123456789012345678,2
i2 = 3703703670370370367037037034,6
i3 = 1234567890123456789012345678,2