Задача: поступило 66,790 тонн продукции по цене 2556 руб за тонну.
Сколько мы должны заплатить?
- Код: Выделить всё
Private Sub Form_Load()
Dim a As Single, b As Single
a = 66.79
b = 2556
Debug.Print a * b
End Sub
ответ: 170715,30 руб
а поточнее???
- Код: Выделить всё
Private Sub Form_Load()
Dim a As Double, b As Double
a = 66.79
b = 2556
Debug.Print a * b
End Sub
ответ: 170715,24 руб
разница 6 копеек!!!
вот вам и Single
p.s. переделываю базы и перекомпилирую софт. я в шоке...
