---

Hej !

Jeg har et lille problem som jeg håber der er en der kan hjælpe mig med.

Hvordan afrunder man et tal, til et ønsket antal decimaler?

f.eks. afrunde 4.16874214 til 3 decimaler 4,169

Allan

---

"Allan Pedersen" <allped@worldonline.dk> wrote in message
news:lhnw6.116$84.30776@news010.worldonline.dk...
> Hej !
>
> Jeg har et lille problem som jeg håber der er en der kan hjælpe mig med.
>
> Hvordan afrunder man et tal, til et ønsket antal decimaler?
>
> f.eks. afrunde 4.16874214 til 3 decimaler 4,169

Ved hjælp af kommandoen round.

x=4.16874214
round(x*1000)/1000 = 4,169

---

Hvorfor ikke (Spørsmål)

X = 4.16874214
X = Round(X,3)
X = 4,169

"Christian R. Larsen" <crlarsen@hotmail.com> skrev i en meddelelse
news:cgow6.184$84.40625@news010.worldonline.dk...
> "Allan Pedersen" <allped@worldonline.dk> wrote in message
> news:lhnw6.116$84.30776@news010.worldonline.dk...
> > Hej !
> >
> > Jeg har et lille problem som jeg håber der er en der kan hjælpe mig med.
> >
> > Hvordan afrunder man et tal, til et ønsket antal decimaler?
> >
> > f.eks. afrunde 4.16874214 til 3 decimaler 4,169
>
> Ved hjælp af kommandoen round.
>
> x=4.16874214
> round(x*1000)/1000 = 4,169
>
>

---

Jeg har lige et tillægs spørgsmål !

Hvordan runder man op/ned til hele 25 øre best

Her er mit svar, men er der ikke en bedere løsning

Dim decimaltal As Single
Dim heltal As Single
Dim afrunding As Single
Dim starttal As Single

Private Sub Command1_Click()
starttal = Text1.Text
heltal = Int(starttal)
decimaltal = starttal - heltal

If decimaltal > 0.87 Then afrunding = 1 Else
If decimaltal < 0.88 Then afrunding = 0.75 Else
If decimaltal < 0.63 Then afrunding = 0.5 Else
If decimaltal < 0.38 Then afrunding = 0.25 Else
If decimaltal < 0.13 Then afrunding = 0 Else

Text1.Text = heltal + afrunding
End Sub


Format(ialt, "##,##0.00")

Mvh
Jens

---

Prøv denne for avrunding til nærmeste 25-øre. (der "dTest" er et desimaltall
av type Double)

Int(FormatNumber((dTest / 0.25), 0)) * 0.25

mvh
Bjørnar Nilsen

"Jens Andersen" <infojens@mail.dk> skrev i melding
news:99tm38$spe$1@news.inet.tele.dk...
> Jeg har lige et tillægs spørgsmål !
>
> Hvordan runder man op/ned til hele 25 øre best
>
> Her er mit svar, men er der ikke en bedere løsning
>
> Dim decimaltal As Single
> Dim heltal As Single
> Dim afrunding As Single
> Dim starttal As Single
>
> Private Sub Command1_Click()
> starttal = Text1.Text
> heltal = Int(starttal)
> decimaltal = starttal - heltal
>
> If decimaltal > 0.87 Then afrunding = 1 Else
> If decimaltal < 0.88 Then afrunding = 0.75 Else
> If decimaltal < 0.63 Then afrunding = 0.5 Else
> If decimaltal < 0.38 Then afrunding = 0.25 Else
> If decimaltal < 0.13 Then afrunding = 0 Else
>
> Text1.Text = heltal + afrunding
> End Sub
>
>
> Format(ialt, "##,##0.00")
>
> Mvh
> Jens
>
>

---

"(¯`·.¸¸.-=[ WebTime ]=-.¸¸.·´¯)" <jhdata@adr.dk> wrote in message
news:uQqw6.1396$Tj4.151264@news101.telia.com...
> Hvorfor ikke (Spørsmål)
>
> X = 4.16874214
> X = Round(X,3)
> X = 4,169

Hvis det virker, så er det da ok med mig!

---

Allan Pedersen skrev:
> Hvordan afrunder man et tal, til et ønsket antal decimaler?

Hvis du kan acceptere følgende:

Round(1.15, 1) = 1.2
Round(1.25, 1) = 1.2

så er Round dit valg!

Ellers kan jeg foreslå at bruge FormatNumber:

FormatNumber(1.15, 1) = 1.2
FormatNumber(1.25, 1) = 1.3

eller selv kode dig ud af det med noget i retning af:

Function Afrund2(ByVal Kommatal As Double, ByVal Decimaler As Long) As
Double
Afrund2 = Fix(Kommatal * Round(10 ^ Decimaler) + Sgn(Kommatal) * 0.5) /
Round(10 ^ Decimaler)
End Function

-------
Tomas