Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale

[es] :: Access :: HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale

[ Pregleda: 4993 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu.

ICQ: 329831125
Sajt: www.nosolutions.rs


Profil

icon HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale13.07.2005. u 16:48 - pre 227 meseci
Kako mogu da od broja koji je tipa Number>Double>Currency na 5 decimala (JEDINICNA CENA PROIZVODA) da dobijem broj koji cje biti JEDINICNA CENA*KOLICINA = UKUPNO (broj Number>Double>Currency na 2 decimale)??
Ali ne zelim da mi on to samo prikaze jer rezultat se dobije na 5 decimala (ja mogu da mu kazem Display na 2 decimale) ali zbog daljeg rachuna sa ovim poljem neophodno mi je da imam znachi broj sa 2 decimale. ALI BASH BROJ! Ne broj od 5 decimala koji prikazuje samo 2.....
Primer:
5.12345 zelim da dobijem 5.12 i da mi dalje rachuna sa vrednoscju 5.12 !
Meni trenutno prikaze rezultat 5.12 ali mi rachuna sa vrednoscju 5.12345.
Kako to da izbegnem?
HVALA..
 
Odgovor na temu

krul
Cardak ni na nebu ...

Član broj: 16060
Poruke: 85
*.net.gov.bc.ca.



+1 Profil

icon Re: HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale13.07.2005. u 20:52 - pre 227 meseci
=round(tvojbroj,kolikodecimala)
round funkcija radi posao
Jednostavnost! Odlika genijalnosti
 
Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu.

ICQ: 329831125
Sajt: www.nosolutions.rs


Profil

icon Re: HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale13.07.2005. u 23:17 - pre 227 meseci
a gde treba da ispishem to "=round(moj broj, koliko decimala)" kad idem na Build expression nema ponudjena ta opcija. molim te ako mozes samo malo detaljnije da opishesh jer sam probao da stavim "=round([suma],2) i nikako necje.
Hvala
 
Odgovor na temu

krul
Cardak ni na nebu ...

Član broj: 16060
Poruke: 85
*.bchsia.telus.net.



+1 Profil

icon Re: HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale14.07.2005. u 00:24 - pre 227 meseci
Ne znam tacno gde hoces da koristis tu vrednost, pretpostavljam da to treba da bude text box; ako je onda ovako: u control source property texboxa

=round(CDbl([CREDATMPT]),2)

Moguci problem je to da je vrednost polja u pogresnom data tipu, kao sto je to kod mene slucaj [CREDATMPT] onda samo convertujes data tip ako je to moguce i to je to.
Javi ako ima problema ali pokusaj da budes malo specificniji.
Pozdrav
Jednostavnost! Odlika genijalnosti
 
Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu.

ICQ: 329831125
Sajt: www.nosolutions.rs


Profil

icon Re: HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale14.07.2005. u 01:27 - pre 227 meseci
Pazi problem je u tome sto u Accessu 97 ne postoji uopste funkcija ROUND.
Ima neka RND ali nisam siguran da je to ta...
TO znachi da bi trebalo ispisati neku ROUND funkciju a to sam nasao na netu i glasi:


Public Function Round( _
ByVal Number As Variant, NumDigits As Long, _
Optional UseBankersRounding As Boolean = False) As Double
'
' ---------------------------------------------------
' From "Visual Basic Language Developer's Handbook"
' by Ken Getz and Mike Gilbert
' Copyright 2000; Sybex, Inc. All rights reserved.
' ---------------------------------------------------
'
Dim dblPower As Double
Dim varTemp As Variant
Dim intSgn As Integer

If Not IsNumeric(Number) Then
' Raise an error indicating that
' you've supplied an invalid parameter.
Err.Raise 5
End If
dblPower = 10 ^ NumDigits
' Is this a negative number, or not?
' intSgn will contain -1, 0, or 1.
intSgn = Sgn(Number)
Number = Abs(Number)

' Do the major calculation.
varTemp = CDec(Number) * dblPower + 0.5

' Now round to nearest even, if necessary.
If UseBankersRounding Then
If Int(varTemp) = varTemp Then
' You could also use:
' varTemp = varTemp + (varTemp Mod 2 = 1)
' instead of the next If ...Then statement,
' but I hate counting on TRue == -1 in code.
If varTemp Mod 2 = 1 Then
varTemp = varTemp - 1
End If
End If
End If
' Finish the calculation.
Round = intSgn * Int(varTemp) / dblPower
End Function

Sad pomocju ove funkcije mogu da napishem =round([suma],2) i automatski dobijam zaokruzenu vrednost na 2 decimale ali kad kliknem na text box i dalje se pojave preostale 3 decimale i dalje mi rachuna sa svih 5 decimala.

Evo sada sam obrisao taj modul kao da ne postoji i stavio sam sve kako si napisao, medjutim necje nikako u text boxu mi prijavi #Name?

Meni ovo treba da stoji u izvestaju, tj. to kalkulisanje.
Nadam se da sam sada bio malo precizniji....

Nikako ne mogu da isechem broj na 2 decimale.....

 
Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu.

ICQ: 329831125
Sajt: www.nosolutions.rs


Profil

icon Re: HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale14.07.2005. u 03:02 - pre 227 meseci
Konachno sam uspeo da ispishem funkciju....Evo kako ide:

Public Function Round2CB(Value, Optional Precision As Variant) As Double

If IsNull(Value) Then Exit Function
If IsMissing(Precision) Then Precision = 2
Value = Fix(Value * 10 ^ Precision + 0.5 * Sgn(Value)) / 10 ^ Precision
Round2CB = Value

End Function

Posle u Control source napishemo "=Round2CB([Ukupno],2)" i to je to...

Hvala na pomocji!

 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba


+2 Profil

icon Re: HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale15.07.2005. u 11:19 - pre 227 meseci
Function Zaokruzi(Broj As Double, Decimala As Integer)
Dim FormatD As String

If Format$(Broj) = "" Then GoTo Kraj
Select Case Decimala
Case 1
FormatD = "##.#"
Case 2
FormatD = "##.##"
Case 3
FormatD = "##.###"
Case 4
FormatD = "##.####"
Case 5
FormatD = "##.#####"
Case 6
FormatD = "##.######"
Case 7
FormatD = "##.#######"
Case 8
FormatD = "##.########"
Case Else
MsgBox "Loši ulazni parametri"
End Select
Zaokruzi = Format(Broj, FormatD)
Kraj:
End Function

Poziv Na Kontrolu
=Zaokruzi([Vrijednost];Broj decimala)
ili
=Zaokruzi([Vrijednost],Broj decimala)

zxz
 
Odgovor na temu

[es] :: Access :: HITNO! Kako da od broja sa vise decimala dobijem broj sa 2 decimale

[ Pregleda: 4993 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.