Molim vas da mi pomognete sta treba da uradim da bi se odredjeni rezultat npr. 18.57 zaokruzivao na 18.55 itd. Unaprijed hvala.
Zaokruzivanje broja
Zaključano
Zakačeno
evo 2 primjera:
1: Round(1.456, 2) 'ovo vraca vrijednost 1.46. Broj 2 je broj decimala
2: drugi primjer je modul koji mozes kopirati u svoju bazu i pozvati sa roundcurr
Public Function RoundCurr(OriginalValue As Currency, Optional
NumberOfDecimals As Integer) As Currency
On Error GoTo Error_Handler
'returns a currency value rounded to the specified number of decimals of
the Original Value
If IsMissing(NumberOfDecimals) Then
NumberOfDecimals = 0
End If
RoundCurr = Int((OriginalValue * (10 ^ NumberOfDecimals)) + 0.5) _
/ (10 ^ NumberOfDecimals)
Exit_Procedure:
Exit Function
Error_Handler:
MsgBox Err.Number & ", " & Err.Description
Resume Exit_Procedure
End Function
1: Round(1.456, 2) 'ovo vraca vrijednost 1.46. Broj 2 je broj decimala
2: drugi primjer je modul koji mozes kopirati u svoju bazu i pozvati sa roundcurr
Public Function RoundCurr(OriginalValue As Currency, Optional
NumberOfDecimals As Integer) As Currency
On Error GoTo Error_Handler
'returns a currency value rounded to the specified number of decimals of
the Original Value
If IsMissing(NumberOfDecimals) Then
NumberOfDecimals = 0
End If
RoundCurr = Int((OriginalValue * (10 ^ NumberOfDecimals)) + 0.5) _
/ (10 ^ NumberOfDecimals)
Exit_Procedure:
Exit Function
Error_Handler:
MsgBox Err.Number & ", " & Err.Description
Resume Exit_Procedure
End Function
Potpis
----There is no place like 127.0.0.1-----
Savet koji ti je dao Nidisa radi za zaokruzivanje na odredjeni broj decimala. U Bazi znanja imas dve funkcije koje zaokruzuju na bilo koji inkrement (na 0.25. na 0.5, na gore, na dole i slicno). Potrazi tamo.