Pyöristäminen

kahden desimaalin...

Eli teen valuuttamuunninta, joka muuttaa eurot Ruotsin kruunuiksi. Miten saisin tuloksen näkymään kahden desimaalin tarkkuudella?

6

1031

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
      • 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,40

        Ei 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vain vasemmistolaiset rakennemuutokset pelastavat Suomen

      Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot
      Maailman menoa
      24
      3409

    2. Persut huutaa taas: "kato! muslimi!"

      Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe
      Maailman menoa
      13
      2828

    3. Menen nyt koisimaan

      Ja en ehkä palaa tänne. Asia on nyt loppuunkäsitelty ja totuus tuli ilmi
      Ikävä
      28
      2504

    4. Olisiko sinulla

      Jonossa vaihtoehtoja, ehkä
      Ikävä
      42
      1917

    5. Pieni galluppi

      Mitäs lahjaa odotat joulupukilta.
      Ikävä
      52
      1755

    6. Haluaisin rakastaa sinua

      Ja olla sinulle se oikea... Rakastan sinua 💗💗💗
      Ikävä
      15
      1720

    7. onko kaivattusi

      vaarallinen? :D
      Ikävä
      45
      1606

    8. KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!

      Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola
      Suomalaiset julkkikset
      10
      1468

    9. Oletko uhriutuja?

      vaikka itse olet rääkännyt toista ja aiheuttanut ties mitä toiselle.
      Tunteet
      54
      1434

    10. Missikohu edustaa nykyajan monimuotoisuutta

      Puolesta vai vastaan, saako esittää pilkkaavasti jonkun toisen ihmisen syntyperäisiä ominaisuuksia? Kadulla vastaan tule
      Sinkut
      263
      1161
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt