Чудеса Currency. Или как правильно произвести вычисление.

[shady]

Добрый день. Подскажите пожалуйста по разного рода вычислениям в VB.
Есть формула:

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

k = SummPay / (SumSelOtgrProd - SumSelPayProd)

где SumSelOtgrProd=55133, SumSelPayProd=55000 и SummPay =133.
все они объявлены как Currency.
По всем правилам, если эти значения подставить в формулу должно получиться 1. Такого не получается.
Начал искать где может быть ошибка
Оказалось:
что Debug.Print (SumSelOtgrProd - SumSelPayProd) показывает 133,0039
а должен был показать 133 ровно
Подскажите, как с такими чудесами бороться?

З.Ы. Помнится где-то уже была на форуме схожая тема, но найти ее не смог.

[alibek]

Код покажи.

[shady]

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


For Each aChecBoxes In lvProducts.ListItems
   Counter = Counter + 1
   If aChecBoxes.Checked = True Then ' проверяем где установлена галка
      ' общая сумма поставки
      SumSelOtgrProd = SumSelOtgrProd + CCur(lvProducts.ListItems(Counter).ListSubItems(5).Text)
      Debug.Print SumSelOtgrProd
      ' общая сумма платежей
      SumSelPayProd = SumSelPayProd + CCur(lvProducts.ListItems(Counter).ListSubItems(6).Text)
      Debug.Print SumSelPayProd
    End If
Next

При этом, в этих Debug.Print-ах сумма с 2мя знаками после запятой.

[GSerg]

Бессмысленный и вредный код. Потому что идёт какое-то непонятное двойное перечисление - и через For Each aChecBoxes, и через Counter.

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

For Each aChecBoxes In lvProducts.ListItems
   If aChecBoxes.Checked Then ' проверяем где установлена галка
      ' общая сумма поставки
      SumSelOtgrProd = SumSelOtgrProd + CCur(aChecBoxes.ListSubItems(5).Text)
      Debug.Print SumSelOtgrProd
      ' общая сумма платежей
      SumSelPayProd = SumSelPayProd + CCur(aChecBoxes.ListSubItems(6).Text)
      Debug.Print SumSelPayProd
    End If
Next

Покажи объявление переменных SumSelOtgrProd и SumSelPayProd.

[shady]

Бессмысленный и вредный код. Потому что идёт какое-то непонятное двойное перечисление - и через For Each aChecBoxes, и через Counter.

Это сделано для того чтобы пользователь отметил необходимую продукцию на которую нужно разнести сумму платежа. А вычисления нужны для рассчета коэффициента (доли) каждого из выбранных изделий в оплате. Кроме лист вью можно было бы использовать и гриду конечно, но когда я его делал не догадался об этом. сейчас поджимают сроки, позже скорее всего переделаю.

Покажи объявление переменных SumSelOtgrProd и SumSelPayProd

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

Private SumSelOtgrProd As Single      ' сумма отгрузки выбранных изделий
Private SumSelPayProd As Single       ' сумма оплаты выбранных изделий

Как сюда попало single не понимаю, наверное вчера вечером как-то изменил, даже и не помню...
Но признаюсь мой ксяк.
Исправил на Currency теперь все правильно
Теперь становится понятно все... кроме одного... где почитать про то, как VB работает с разными типами даных. Только пробывать в ручную?

[alibek]

Обыкновенно работает.
Какие нюансы непонятны?

[shady]

Ну например. Как у меня получалось -- Currency=Single-Single
результатом было 133,0039 -- следствие плавающей запятой. А дебаг показывает что числа целые из чего я делаю вывод что результатом должно стать 133 ровно (еще ко всему этому я был убежден что вычисления произвожу с одним типом данных Currency).
Это, я уверен, только 1 вариант неправильного выбора типов данных программистом, поэтому и хотелось бы знать м.б. где-то уже преведены примеры неправильного использования типов данных (не очень хочется все на себе пробывать)

[GSerg]

Это сделано для того чтобы пользователь отметил необходимую продукцию на которую нужно разнести сумму платежа. А вычисления нужны для рассчета коэффициента (доли) каждого из выбранных изделий в оплате.

Ты не понял.
Неверна не бизнес-логика кода, а его реализация. Правильную реализацию я показал в своём посте.

[shady]

Ты не понял.
Неверна не бизнес-логика кода, а его реализация. Правильную реализацию я показал в своём посте.

Не обратил внимания... Действительно... Большое спасибо.

[GSerg]

Ну например. Как у меня получалось -- Currency=Single-Single
результатом было 133,0039 -- следствие плавающей запятой. А дебаг показывает что числа целые из чего я делаю вывод что результатом должно стать 133 ровно

http://bbs.vbstreets.ru/viewtopic.php?t=20753