Public Function Zaokr(L, m) As Double Zaokr = Int(L * 10 ^ m + 0.5) / 10 ^ m End Function
Public Function Zaokr1(L, m) As Double 'przykład dla liczb dodatnich Zaokr1 = Int(CDec(L) * 10 ^ m + 0.5) / 10 ^ m End Function
Public Function Zaokr2(L, m) As Double 'dla dowolnych liczb dodatnich i ujemnych Zaokr2 = Format(CDec(L), "0." & String(m, "0")) End Function
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
K. P.