Eli teen valuuttamuunninta, joka muuttaa eurot Ruotsin kruunuiksi. Miten saisin tuloksen näkymään kahden desimaalin tarkkuudella?
Pyöristäminen
kahden desimaalin...
61089
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 6
Vanhimmat
juttu. Ratkaisukin siellä on --> http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000645&posting=22000000031095711
Juu huomasin kyllä tuon, ja kokeilin tuota Roundia, mutta ei onnistunut...En oikein tiedä, mihin kohtaan laskukaavaa tuo pitäisi laittaa. Tässä siis aikaansaannokseni:
Sub eurot_kruunuiksi()
Dim eurot As Currency
Dim kruunut As Currency
Dim tulos As Currency
MsgBox ("Tämä ohjelma muuttaa eurot Ruotsin kruunuiksi.")
eurot = InputBox("Syötä eurot.")
tulos = eurot * 9.4487
MsgBox (" " & eurot & " euroa on " & tulos & " Ruotsin kruunua.")
End Sub
Olen ihan aloittelijaneitokainen tämän VBA:n kanssa, joten toivottavasti joku jaksaa tällaisiin tyhmiin kysymyksiin vastata :)
Format-käskyllä http://www.apostate.com/vb-format-syntax
Esim. Format(315.4, “##0.00”) tulostaa 315,40
Ei onnistunut :( Taitaa olla käyttäjässä vikaa...Mikäköhän tässä nyt menee pieleen...?
Sub eurot_kruunuiksi()
Dim eurot As Currency
Dim kruunut As Currency
Dim tulos As Currency
MsgBox ("Tämä ohjelma muuttaa eurot Ruotsin kruunuiksi.")
eurot = InputBox("Syötä eurot.")
tulos = Round(eurot * 9.4487, 2)
MsgBox (" " & eurot & " euroa on " & tulos & " Ruotsin kruunua.")
End Sub
Millaisen käskyrivin kirjoitit? Tuliko siinä virheilmoitus? Mitä se tulosti?