Eli teen valuuttamuunninta, joka muuttaa eurot Ruotsin kruunuiksi. Miten saisin tuloksen näkymään kahden desimaalin tarkkuudella?
Pyöristäminen
kahden desimaalin...
6
958
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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.303481Kukka ampu taas Kokkolassa?
T. olisi hetkeä aiemmin lähtenyt johonkin. Naapuri kai tekijä J.K., ei paljasjalkainen Kokkolalainen, vaan n. 100km pääs91538Kuinka kauan
Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?1131473Milli-helenalla ongelmia
Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell2241255Kun näen sinut
tulen iloiseksi. Tuskin uskallan katsoa sinua, herätät minussa niin paljon tunteita. En tunne sinua hyvin, mutta jotain34893Purra saksii taas. Hän on mielipuuhassaan.
Nyt hän leikkaa hyvinvointialueiltamme kymmeniä miljoonia. Sotea romutetaan tylysti. Terveydenhoitoamme kurjistetaan. ht242883- 60869
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.130858Ja taas kerran hallinto-oikeus että pieleen meni
Hallinto-oikeus kumosi kunnanhallituksen päätöksen vuokratalojen pääomituksesta. https://sysmad10.oncloudos.com/cgi/DREQ66844Löydänköhän koskaan
Sunlaista herkkää tunteellista joka jumaloi mua. Tuskin. Siksi harmittaa että asiat meni näin 🥲97808