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
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
Attachments
Last edited: