Eli teen valuuttamuunninta, joka muuttaa eurot Ruotsin kruunuiksi. Miten saisin tuloksen näkymään kahden desimaalin tarkkuudella?
Pyöristäminen
kahden desimaalin...
6
916
Vastaukset
- sama..........
juttu. Ratkaisukin siellä on --> http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000645&posting=22000000031095711
- aloittaja
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 :) - xxxxx
aloittaja kirjoitti:
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 - aloittaja
xxxxx kirjoitti:
Format-käskyllä http://www.apostate.com/vb-format-syntax
Esim. Format(315.4, “##0.00”) tulostaa 315,40Ei onnistunut :( Taitaa olla käyttäjässä vikaa...Mikäköhän tässä nyt menee pieleen...?
- Jalmari
aloittaja kirjoitti:
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 - xxxxx
aloittaja kirjoitti:
Ei onnistunut :( Taitaa olla käyttäjässä vikaa...Mikäköhän tässä nyt menee pieleen...?
Millaisen käskyrivin kirjoitit? Tuliko siinä virheilmoitus? Mitä se tulosti?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tykkään sinusta tosi tosi paljon
Siksi en pysty sisäistämään sitä, että se ei ole molemminpuolista. Sattuu liikaa. En osaa käsitellä sitä tunnetta, koska513487- 1562109
Kaupan kassalla kannataa olla kylmä käytös
https://www.is.fi/taloussanomat/art-2000010488540.html "19-vuotias Minja ja 59-vuotias Anne työskentelevät sillä todelli2061805Mitä tehdä asialle?
Jos laitan deitti-ilmon "40-vuotias nainen etsii seuraa" niin ketään ei kiinnosta (korkeintaan paria runkkaripenaa joill1341716- 801165
- 2341104
Mitä helvettiä pakolaisille pitäisi tehdä RAJALLA?
Jos Venäjä työntää rajalle pakolaisia ja tekee Suomelle selväksi että heidän puolelleen ei ole pakolaisilla asiaa - mitä2851071- 130999
Olen pahoillani mies
Olen surullinen puolestasi, ettet saanut kaipaamaasi naista. Yrititkö lopulta edes? Teistä olisi tullut hyvä pari52939- 72895