Jag vet att jag har använt mig av det nån gång men kan ej hitta det nu. Vet någon hur man gör om man ska avrunda ett tal till det antal decimaler man vill. Alltså, jag ska kunna ange hur mågna decimaler det ska avrundas till. I detta fallet vill jag använda mig av två.

Tack på förhand
Agge

titta på format


/Emma

Hej
Det har ju tillkommit en Funktion Round som man ofta
glömmer bort.

antDec = Clng(Text1.Text)
Label1.Caption = Round(talet,antDec)
eller hårdkoda
Label1.Caption = Round(talet,2)
mvh
Sven

Fatta ru int de?

Passa dig Diana! Passa dig jävligt noga!!!!!
;-)

Agge

Jag får inte det att fungera. Jag har en gammal version av VB. Det är VB 4.0. Antagligen finns inte den funktionen där. Finns det något annat sätt tro??

Agge

här har du en lurig jävel..... men den funkar verkar det som hehehehhe =)

<code>
Private Sub Form_Load()
Dim Tal As Double
Tal = 67.126456789

MsgBox ((Tal * 100 - ((Tal * 100) - Int(Tal * 100))) / 100) + (Int(((Tal * 100) - Int(Tal) * 100) - (Int(((Tal * 100) - Int(Tal) * 100))) + 0.5) / 100)

Unload Me
End Sub


</code>

ja som sagt .... urk =)

//Martin

Jo, jag har testat och den verkar funka! Att du bara orkar! Har du gjort den själv?
Tack för hjälpen
Agge

japp.... tyckte att det skulle finnas en lösning ..... hehe jag gav mej fan på att fixxa en typ ;)


Varsågod föresten ....

//Martin

Det var ju schysst!!
Tack, tack!!

Agge

Format-funktionen skall fungera i VB 4 tror jag.<br>
Använd
<code>
Tal = 67.126456789
MsgBox Format(Tal, "0.##")
</code>
för avrundning eller
<code>
Tal = 67.126456789
MsgBox Format(Tal, "0.00")
</code>
om du <i>alltid</i> vill ha två decimaler.<br>
<br>
/Ivar

Ivar

Funkar ej med Format(). Tack för hjälpen i alla fall.

Agge