B4A Class Yahoo Currency Converter

Discussion in 'Additional libraries, classes and official updates' started by Tayfur, Dec 18, 2015.

  1. Tayfur

    Tayfur Well-Known Member Licensed User

    Hello...

    I want to share simple currency calcuate Class. Sample in attachment.
    Maybe you use it in a project.

    Dim Yahoo As CurrencyConverter
    Yahoo.Initialize("x",Me)

    Yahoo.ReadAllCurrency
    Loading all data from Yahoo

    Yahoo.USDallCurrencyList as Map

    (MyMap) {KRW=1181.594971, VND=22544.5, ......HKD=7.7528, ARS=13.34445}



    Public Sub Convert(FromCur As String, ToCur) As Double
    'Return = ToCur/FromCur
    'Exp: EUR / USD partiy is
    'Convert("USD", "EUR")=>> 1.1045

    Yahoo.Convert("USD","EUR")&" EUR")
    1 USD = 0.924556 EUR
    1 USD = 2.90915 TRY


    Public Sub ConvertCalculate(Money As Double,FromCur As String, ToCur) As Double
    'Return = Money * (ToCur/FromCur)
    'Exp: EUR / USD partiy is
    'Convert(100,"USD", "EUR")=>> 1104.5


    Public Sub getIsAllCurrencyListed As Boolean
    'All country currancies was listed and calculated.

    Public Sub getUSDallCurrencyList As Map
    'return All country currancies by MAP
     

    Attached Files:

    Last edited: Dec 23, 2015
  2. Tayfur

    Tayfur Well-Known Member Licensed User

    I fixed bug.
     
    Johan Schoeman likes this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice