Eli teen valuuttamuunninta, joka muuttaa eurot Ruotsin kruunuiksi. Miten saisin tuloksen näkymään kahden desimaalin tarkkuudella?
Vastaukset 6
- 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
- 1941855
Muistakaa pojat tämä.
Mies joka haluaa naisen, löytää keinon. Ei epäröi eikä hämmennä. Tekee kaiken eteenne.117977Mitä mieltä olet?
Miehestä jolla ei ole yhtään kaveria, ei facebookissa eikä livenä ja hän harrasta ja tekee kaiken yksin. Onko vähän outo127902En ehkä onnistu siinä
Kovasti minä yritän näyttää kauniilta, vain sinua varten, mutta en taida onnistua siinä.58755Muhun rakastuu kaikki naiset, mut mä en rakastu niihin
Mun vaatimustaso on 10+ Mut mua tavottelee 7+ naiset210704- 135656
- 60655
Viesti jonka haluaisit lähettää...
hänelle. Onko jokin pieni tunniste jonka vain te tiedätte. Onko naiselta miehelle tai toisinpäin, joku joku päivämäärä21624Pahoin pelkään nainen
että pidät minua epäempaattisena, itsekeskeisenä, narsistisena ja kylmänä ihmisenä. Oletko koskaan ajatellut, että minus57602- 38568