экспоненциальный формат

[Puffi.Muffi]

Уважаемые программисты,

Помогите, пожалуйста, разобраться с задачей.
У меня большое количество сверок привязано к числу "0".

При запуске макроса в некоторых местах (такое ощущение что в случайном порядке) определяется не ноль, а значения типа -1,45519152283669E-11

Например если в Immediate window вбить "?57000+18922.46+12520-88442.46"
оно мне выводит "-7,27595761418343E-12", а не мой любимый ноль.

Подскажите плиз как с этим бороться? у меня уже нет сил, который час пытаюсь найти что-либо подходящее в интернете..

С уважением,
Puffi.Muffi

[EducatedFool]

Решение - округление чисел
Проблема из-за механизма вычислений, заложенного в Excel (обойти - никак)
На форуме можно найти объяснение причин, почему так происходит (ссылку дать не могу - лень искать)

вместо проверки типа

if r=0 then

используйте

if round(r,2)=0 then

и всё будет нормально

[Puffi.Muffi]

Как просто! Спасибо!!!
Причин я уже начиталась вдоволь =))

[Hugo121]

Как вариант:

Sub tt()
    Dim t As Double
    t = 57000
    t = t + 18922.46
    t = t + 12520 '+ 1
    t = CStr(t) - CStr(88442.46)
End Sub

[Puffi.Muffi]

Hugo121,

очень интересно.
Однако для меня это странно: почему в числовом формате excel выдает какие-то странные значения, а в строковом типе нормальное число.

Спасибо,
Puffi.Muffi

[Hugo121]

Тоже в голове не укладывается
Но раз была проблема - см.файл.
Числа в одном формате, всюду с виду одинаковые - но не равны!
Только не надо кликать по ячейкам - сломаете!
На деле кликать естественно никто не будет, да и вообще трогать лист - не вариант.
Выход - переводить оба в стринг.