VBA.VB6 - Функція округлення (більша або менша за n цифр)

Функція Round () забезпечує неправильне округлення чисел у такій формі:

(2a + 0, 5) x 10 ^ -n (кругла половина вниз)

До мінусів, номери виду (2a - 0, 5) x 10 ^ -n зазвичай круглі половини вгору.

Автор: Patrice33740

Наприклад:

Круглий (0, 15, 1) = 0, 2

Круглий (0, 25, 1) = 0, 2

Круглий (0, 35, 1) = 0, 4

Круглий (0, 45, 1) = 0, 4

Наведена нижче функція округлення не має цієї аномалії:

Круглий (0, 15, 1) = 0, 2

Круглий (0, 25, 1) = 0, 3

Круглий (0, 35, 1) = 0, 4

Круглий (0, 45, 1) = 0, 5

 Приватний функціональний раунд (ByVal Number, ByVal десятковий) Arrondi = Int (Номер * 10 ^ Decimal + 1/2) / 10 ^ Десятковий кінець