/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste