Eli teen valuuttamuunninta, joka muuttaa eurot Ruotsin kruunuiksi. Miten saisin tuloksen näkymään kahden desimaalin tarkkuudella?
Pyöristäminen
kahden desimaalin...
6
999
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
Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?901757- 851242
- 1101123
- 71954
- 102884
Okei nyt mä ymmärrän
Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘56828- 47741
- 36732
Olen huolissani
Että joku päivä ihastut/rakastut siskooni. Ja itseasiassa haluaisin, ettei hän olisi mitenkään sinun tyyppiäsi ja pitäis47681- 33663