Zaokruživanje brojeva

[ srdrazic @ 26.08.2013. 19:06 ] @

Muči me zaokruživanje brojeva, naime pokušao sam sa "Round" ; "Int" i sa "Fix" sve te funkcije odrade svoje ali ukupan zbir mi ne daje 100%.
Dakle u pitanju je računanje procenata tako da ukupan zbir iznosi 100%.
Imam jedan primer ako je ko voljan da mi pojasni.
Kako se baza uvećava i broj artikala tako se sve više usložnjava zaokruživanje.

[ Zidar @ 26.08.2013. 19:55 ] @

Promeni quary PROCENTI (bas si mogao d a ga nazoves qryProcenti, nije zabranjeno), neka kolona Procenti bude prosto

Code:
Procenti: Kolic/kol

, sto daje decimalan broj manji od jedinice i nemoj nista da da zaokruzujes, prerano je. Ostavi rezultat deljenja da bude decimalan broj. Onda na izvestaju u koloni Procenti, postavi format na Percent sa recimo 3 decimale, a u zbiru postavi format na dve decimale. Zbir ce pokazivati 100.00%, iako kad rucno saberes, mozda dobijes 100,001. Broj 100,001 se korektno zaokruzuje na 100,00 i bez upotrebe funkcije Round, dovoljno je obican Format property.

[ srdrazic @ 26.08.2013. 20:09 ] @

Probao i radi , a u ovom slučaju 3 decimale, dobije se 100.00%. Moram zaokružiti najviše do 2 decimale a na 1 bi bilo idealno,
međutim koliko god decimala postavim zbir poslednjih brojeva decimala i ne odgovara 10. (ovo odmah zlonamernici primete iako ta decimala malo utiče na račun ali eto..nek se nešto nađe kao primedba)
U ovakvom slučaju mogao bi napraviti Label polje i samo unesem 100%, isto je.

Hvala u svakom slučaju.

[ Zidar @ 26.08.2013. 20:30 ] @

Zlonamernici ne znaju matematiku, i tu se nista ne moze. Mozda da probas nekom od ovih funkcija. Prva je verovatno dobra za decimalno zaokruzivanje, druga dozvoljava zaokruzivanje na koju hoces frakciju, a treca zaokruzuje na dole ili na gore, na koju hoces frakciju (na najblizi inch, na najblizih pola sata, na najblizih 0.25 i slicbne stvari)

Donje dve funkcije sam nekad davno (1997-1998) poslao u casopis VB Access Advisor, i objavili su ih, nakon je sam Veliki Ken Getz uradio neke popravke, tako da bi trebalo da rade :-)

Code:

Function Round_TSB(dblNumber As Double, intDecimals As Integer) As Double
'*******************************************
'Name:      Round_TSB (Function)
'Purpose:   round numbers, better than VBA does
'Author:    Copied from ToatlAccessSource web site
'Date:      December 14, 1999, 03:39:04 PM
'Called by:
'Calls:
'Inputs:
'Output:
'*******************************************

  Dim dblFactor As Double
  Dim dblTemp As Double
  dblFactor = 10 ^ intDecimals
  dblTemp = dblNumber * dblFactor + 0.5
  'Round_TSB = Int("" & dblTemp) / dblFactor  ' for 2.0 version
  Round_TSB = Int(CDec(dblTemp)) / dblFactor
End Function

Code:

Function RoundNear(varNumber As Variant, varDelta As Variant) As Variant
'*******************************************
'Name:      RoundNear (Function)
'Purpose:   rounds varnumber to the nearest fraction equal varDelta
'Inputs:    varNumber - number to round
'           varDelta - the fraction used as measure of rounding
'Example:   RoundNear(53,6) = 54, 54 is nearest multiply of 6
'           RoundNear(1.16,0.25) = 1.25, 1.25 is the nearest multiply of 0.25
'           RoundNear(1.12,0.25) = 1.00, 1.00 is the enarest multiply of 0.25
'           RoundNear(1.125,0.25)= 1.25,    1.25 is the nearest multiply of 0.25
'Output:
'*******************************************

Dim varDec As Variant
Dim intX As Integer
Dim varX As Variant

'VarDelta must be <>0
   On Error GoTo RoundNear_Error

If varDelta = 0 Then varDelta = 1

varX = varNumber / varDelta

intX = Int(varX)
varDec = CDec(varX) - intX

If varDec >= 0.5 Then
    RoundNear = varDelta * (intX + 1)
Else
    RoundNear = varDelta * intX
End If

   On Error GoTo 0
   Exit Function

RoundNear_Error:

    MsgBox "Error " & Err.Number & " (" & Err.description & ") in procedure RoundNear of Module mod_Utils"

End Function

Code:

Function RoundUpDown(varNumber As Variant, varDelta As Variant) As Variant
'*******************************************
'Name:      RoundDelta (Function)
'Purpose:   round varNumber to varDelta, up or down
'Inputs:    varNumber = number to round
'           varDelta  = rounding precission
'           +varDelta = rounds UP
'           -varDelta = rounds DOWN
'Example:   RoundUpDown(5.12,+0.25) = 5.25
'           RoundUpDown(5.12,-0.25) = 5.00
'Output:    varNumber rounded UP/DOWN
'*******************************************
Dim varTemp As Variant

'VarDelta must be <>0
   On Error GoTo RoundUpDown_Error

If varDelta = 0 Then varDelta = 1

varTemp = CDec(varNumber / varDelta)

If Int(varTemp) = varTemp Then
    RoundUpDown = varNumber
Else
    RoundUpDown = Int(((varNumber + varDelta) + varDelta) / varDelta - 1) * varDelta
End If

RoundUpDown_Exit_Here:
   On Error GoTo 0
   Exit Function

RoundUpDown_Error:

    MsgBox "Error " & Err.Number & " (" & Err.description & ") in procedure RoundUpDown of Module mod_Utils"
    Resume RoundUpDown_Exit_Here

End Function

[ Getsbi @ 27.08.2013. 05:39 ] @

Za momenat sam hteo ovo da dodam u bazu znanja, ali sam proveravajući ključnom reči "zaokruzivanje" ustaanovio da je ove funkcije Zidar već ranije ostavio u nekim porukama.

http://www.elitesecurity.org/t52046-2#1914198
http://www.elitesecurity.org/t48480-0#315079

_{[Ovu poruku je menjao Getsbi dana 27.08.2013. u 06:57 GMT+1]}

[ Zidar @ 27.08.2013. 19:40 ] @

Zavidim Getsbiju na sposobnosti da pronadje stvari na forumu

Moram d apomenem, da u ranijim postavkama (http://www.elitesecurity.org/t52046-2#1914198) gledamo u funkcije onako kako sam ih u originalu napisao. Verzije u ovoj temi su posle ispravki koje je uradio Ken Getz u Advisoru - najvaznija je konvertoanje svega o decimal, funkcija Cdec. Ima neke veze sa granicnim slucajevima, da li se 5.55 zaokruzuje na 5.5 ili 5.6. Originalni clanak gde je Mr. getz objasnio o cemu se radi nazalost ne moze da se nadje vise na internetu, pa sve ostaje u domenu prerpricavanj