Подскажите оператор целочисленного деления - VB
Формулировка задачи:
Подскажите оператор целостного деления, так что бы даже в случае, если результат = 0,3 выводил 1
Решение задачи: «Подскажите оператор целочисленного деления»
textual
Листинг программы
Public Function O(c As Variant, k As Byte, g) O = IIf(CCur(Abs(Nz(c, 0) * 10 ^ k - Fix(Nz(c, 0) * 10 ^ k))) >= g, (Fix(Nz(c, 0) * 10 ^ k) + Sgn(Nz(c, 0))) / 10 ^ k, Fix(Nz(c, 0) * 10 ^ k) / 10 ^ k) End Function