Converts American Currency Into Marks, Francs, Lire, and Yen

by Ryan Nelson (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 2^nd June 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Converts American Currency Into Marks, Francs, Lire, and Yen



picOutput.Cls
Label2.Caption = ""
    Dim yen!, Lire!, marks!, francs!, Dollars!
    Dollars = txtDollars.Text
    Call Calculate(yen!, Lire!, marks!, francs!, Dollars!)
    Label2.Caption = "  Yen             Lire             Marks             Francs"
    picOutput.Print yen; Tab(10); Lire; Tab(22); marks; Tab(36); francs
End Sub


Public Sub Calculate(yen!, Lire!, marks!, francs!, Dollars!)
    Let yen = Dollars * 119.734
    Let francs = Dollars * 5.7345
    Let Lire = Dollars * 1798.29
    Let marks = Dollars * 1.81646
End Sub

Download this snippet Add to My Saved Code

Converts American Currency Into Marks, Francs, Lire, and Yen Comments

No comments have been posted about Converts American Currency Into Marks, Francs, Lire, and Yen. Why not be the first to post a comment about Converts American Currency Into Marks, Francs, Lire, and Yen.

Converts American Currency Into Marks, Francs, Lire, and Yen

Converts American Currency Into Marks, Francs, Lire, and Yen Comments

Post your comment

Difficulty