Zaokrąglanie liczb- funkcja Round vs. UDF

W dobie operacji finansowych wykonywanych dla jednostek wyrażanych w czterech, pięciu miejscach po przecinku zaokrąglanie wyników może sprawiać pewien problem. Szczególny problem pojawia się w momencie, gdy sięgamy po standardową, wbudowaną funkcję VBA Round. Okazuje się bowiem, że funkcja ta nie zaokrągla w sposób jaki oczekujemy. Zobrazuje to poniższy przykładowy kod:

view sourceprint?

1	Debug.Print Round(0.515, 2) '>> 0,52

2	Debug.Print Round(0.525, 2) '>> 0,52

3	Debug.Print Round(0.535, 2) '>> 0,54

4	Debug.Print Round(0.545, 2) '>> 0,55

5	Debug.Print Round(0.555, 2) '>> 0,56

6	Debug.Print Round(0.565, 2) '>> 0,56

7	Debug.Print Round(0.575, 2) '>> 0,57

8	Debug.Print Round(0.585, 2) '>> 0,58

Jak widać zwracane wynik są w niektórych sytuacjach lekko zaskakujące. Teoretycznie bowiem obowiązuje tu zasada, iż w sytuacji, gdy zaokrąglana wartość wynosi 5 (jak w każdym powyższym przypadku) to zaokrąglenie w górę nastąpi o ile poprzednia liczba jest nieparzysta, oraz w dół- gdy poprzednia liczba jest parzysta. Jak widać nie w każdym przypadku jest to prawdziwe.

Jeżeli więc potrzebujemy klasycznej techniki zaokrąglania to niezbędne jest stworzenie własnej funkcji zaokrąglającej. Poniżej przykład takie funkcji:

view sourceprint?

01	Public Function RoundUDF(Wartosc As Double, _

02	Optional MiejscPoPrzecinku As Integer = 0) As Double

03

04	On Error GoTo ErrHandler

05

06	RoundUDF = Round((Wartosc * (10 ^ MiejscPoPrzecinku)) + 0.5, 0) / _

07	(10 ^ MiejscPoPrzecinku)

08

09	Exit Function

10	ErrHandler:

11	MsgBox Err.Number & vbNewLine & Err.Description

12

13	End Function

Wyniki działania naszej funkcji zaokrąglającej prezentuje poniższy przykład:

view sourceprint?

1	Debug.Print RoundUDF(0.515, 2) '>> 0,52

2	Debug.Print RoundUDF(0.525, 2) '>> 0,53

3	Debug.Print RoundUDF(0.535, 2) '>> 0,54

4	Debug.Print RoundUDF(0.545, 2) '>> 0,55

5	Debug.Print RoundUDF(0.555, 2) '>> 0,56

6	Debug.Print RoundUDF(0.565, 2) '>> 0,57

7	Debug.Print RoundUDF(0.575, 2) '>> 0,58

8	Debug.Print RoundUDF(0.585, 2) '>> 0,59