|
| decimaler Fra : Allan Pedersen |
Dato : 28-03-01 16:18 |
|
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
| |
Christian R. Larsen (28-03-2001)
| Kommentar Fra : Christian R. Larsen |
Dato : 28-03-01 17:26 |
|
"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
| |
\(¯`·.¸¸.-=[ WebTime~ (28-03-2001)
| Kommentar Fra : \(¯`·.¸¸.-=[ WebTime~ |
Dato : 28-03-01 20:21 |
|
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
>
>
| |
Jens Andersen (28-03-2001)
| Kommentar Fra : Jens Andersen |
Dato : 28-03-01 22:46 |
|
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
| |
Bjørnar Nilsen (29-03-2001)
| Kommentar Fra : Bjørnar Nilsen |
Dato : 29-03-01 14:02 |
|
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
>
>
| |
Christian R. Larsen (29-03-2001)
| Kommentar Fra : Christian R. Larsen |
Dato : 29-03-01 19:25 |
|
"(¯`·.¸¸.-=[ 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!
| |
Tomas Christiansen (28-03-2001)
| Kommentar Fra : Tomas Christiansen |
Dato : 28-03-01 22:42 |
|
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
| |
|
|