8. Jak w Accessie 97 zaokrąglić liczbę do n cyfr po przecinku?

Na początku ustalmy, wg jakich zasad chcemy zaokrąglać. Dla mnie prawidłową metodą zaokrąglania jest ta, którą pamiętam z matematyki, czyli 0..4 zaokrąglamy w dół, a 5..9 w górę.

Metoda oparta na funkcji Int (wymieniona jako pierwsza, ale nie polecana):

Public Function Zaokr(L, m) As Double

	Zaokr = Int(L * 10 ^ m + 0.5) / 10 ^ m

End Function

Powyższa metoda jest jednak niedokładna.
Zaokr(2.035, 2) daje 2.04
Zaokr(1.035, 2) daje 1.03 <- powinno być 1.04

Aby wyniki były dokładne należy dodatkowo użyć CDec:

Public Function Zaokr1(L, m) As Double
	'przykład dla liczb dodatnich
	Zaokr1 = Int(CDec(L) * 10 ^ m + 0.5) / 10 ^ m

End Function

Zaokr1(2.035, 2) daje 2.04
Zaokr1(1.035, 2) daje 1.04 <- OK

Metoda oparta na funkcji Format:

Public Function Zaokr2(L, m) As Double
	'dla dowolnych liczb dodatnich i ujemnych
	Zaokr2 = Format(CDec(L), "0." & String(m, "0"))

End Function

Funkcja Zaokr2 także zwraca dokładne wyniki i ma jeszcze jedną unikalną zaletę. Obsługuje niemal dowolnie duże liczby, bo analizuje je znakowo.

Sposób oparty na analizie znaków:

Public Function Z(kwota)
'Poniższy kod pochodzi z bazy, 
'którą przysłał Arkadiusz Jastrząb
'arjastrzab@wp.pl

Dim zmienna, zaok, coto As String
Dim licz As Integer
    licz = 0
    Do Until zmienna = ","
        licz = licz + 1
        zmienna = Mid(kwota, licz, 1)
    Loop
    licz = licz + 3
    kwota = Left(kwota, licz)
    coto = Mid(kwota, licz, 1)
    kwota = Left(kwota, licz - 1)
    If coto > 4 Then
        zaok = Mid(kwota, licz - 1, 1)
        zaok = zaok + 1
        kwota = Left(kwota, licz - 2) & zaok
    End If
    Z = kwota
    
End Function

Powyższa funkcja zaokrągla zawsze do 2 miejsc po przecinku.
Z(2.035) daje 2.04
Z(1.035) daje 1.04 <- OK

K. P.