Re: Currency Conversion Function
Ton
You should load the function and the run it from the interactive window. The function doesn't need an argument, the drop downs will let you choose your options.
Here is a slightly easier way to set up this function in your database.
Attached is an export of the function from my database. Save this file on your computer. In your database, go to the control panel, code tab, right click import and select the file. Follow the import process.
Edit: I've attached an image of what you should see when you run the function.
-
Re: Currency Conversion Function
James,
I think I miss something.
As I don't see any parameter I don't know how to get the wanted results.
TonLeave a comment:
-
Currency Conversion Function
Here is a quick simple function that looks up the exchange rate for two currencies and returns the values.
Enjoy...keep the ideas flowing :-)
Code:'Date Created: 28-Jan-2008 04:02:17 AM 'Last Updated: 28-Jan-2008 04:02:17 AM 'Created By : Mr. GreenJeans 'Updated By : Mr. GreenJeans FUNCTION curr_con AS a ( ) 'Create an XDialog dialog box to prompt for parameters. DIM SHARED From as C DIM SHARED to as C DIM SHARED Amount as N DIM SHARED varC_result as C Amount = 0.00 DELETE a_From DIM a_From[151] as c dim temp_list as c temp_list = <<%list% AFA-Afghanistan Afghani ALL-Albanian Lek DZD-Algerian Dinar ARS-Argentine Peso AWG-Aruba Florin AUD-Australian Dollar BSD-Bahamian Dollar BHD-Bahraini Dinar BDT-Bangladesh Taka BBD-Barbados Dollar BZD-Belize Dollar BMD-Bermuda Dollar BTN-Bhutan Ngultrum BOB-Bolivian Boliviano BWP-Botswana Pula BRL-Brazilian Real GBP-British Pound BND-Brunei Dollar BIF-Burundi Franc XOF-CFA Franc (BCEAO) XAF-CFA Franc (BEAC) KHR-Cambodia Riel CAD-Canadian Dollar CVE-Cape Verde Escudo KYD-Cayman Islands Dollar CLP-Chilean Peso CNY-Chinese Yuan COP-Colombian Peso KMF-Comoros Franc CRC-Costa Rica Colon HRK-Croatian Kuna CUP-Cuban Peso CYP-Cyprus Pound CZK-Czech Koruna DKK-Danish Krone DJF-Dijibouti Franc DOP-Dominican Peso XCD-East Caribbean Dollar EGP-Egyptian Pound SVC-El Salvador Colon EEK-Estonian Kroon ETB-Ethiopian Birr EUR-Euro FKP-Falkland Islands Pound GMD-Gambian Dalasi GHC-Ghanian Cedi GIP-Gibraltar Pound XAU-Gold Ounces GTQ-Guatemala Quetzal GNF-Guinea Franc GYD-Guyana Dollar HTG-Haiti Gourde HNL-Honduras Lempira HKD-Hong Kong Dollar HUF-Hungarian Forint ISK-Iceland Krona INR-Indian Rupee IDR-Indonesian Rupiah IQD-Iraqi Dinar ILS-Israeli Shekel JMD-Jamaican Dollar JPY-Japanese Yen JOD-Jordanian Dinar KZT-Kazakhstan Tenge KES-Kenyan Shilling KRW-Korean Won KWD-Kuwaiti Dinar LAK-Lao Kip LVL-Latvian Lat LBP-Lebanese Pound LSL-Lesotho Loti LRD-Liberian Dollar LYD-Libyan Dinar LTL-Lithuanian Lita MOP-Macau Pataca MKD-Macedonian Denar MGF-Malagasy Franc MWK-Malawi Kwacha MYR-Malaysian Ringgit MVR-Maldives Rufiyaa MTL-Maltese Lira MRO-Mauritania Ougulya MUR-Mauritius Rupee MXN-Mexican Peso MDL-Moldovan Leu MNT-Mongolian Tugrik MAD-Moroccan Dirham MZM-Mozambique Metical MMK-Myanmar Kyat NAD-Namibian Dollar NPR-Nepalese Rupee ANG-Neth Antilles Guilder NZD-New Zealand Dollar NIO-Nicaragua Cordoba NGN-Nigerian Naira KPW-North Korean Won NOK-Norwegian Krone OMR-Omani Rial XPF-Pacific Franc PKR-Pakistani Rupee XPD-Palladium Ounces PAB-Panama Balboa PGK-Papua New Guinea Kina PYG-Paraguayan Guarani PEN-Peruvian Nuevo Sol PHP-Philippine Peso XPT-Platinum Ounces PLN-Polish Zloty QAR-Qatar Rial ROL-Romanian Leu RUB-Russian Rouble WST-Samoa Tala STD-Sao Tome Dobra SAR-Saudi Arabian Riyal SCR-Seychelles Rupee SLL-Sierra Leone Leone XAG-Silver Ounces SGD-Singapore Dollar SKK-Slovak Koruna SIT-Slovenian Tolar SBD-Solomon Islands Dollar SOS-Somali Shilling ZAR-South African Rand LKR-Sri Lanka Rupee SHP-St Helena Pound SDD-Sudanese Dinar SRG-Surinam Guilder SZL-Swaziland Lilageni SEK-Swedish Krona TRY-Turkey Lira CHF-Swiss Franc SYP-Syrian Pound TWD-Taiwan Dollar TZS-Tanzanian Shilling THB-Thai Baht TOP-Tonga Pa'anga TTD-Trinidad&Tobago Dollar TND-Tunisian Dinar TRL-Turkish Lira USD-U.S. Dollar AED-UAE Dirham UGX-Ugandan Shilling UAH-Ukraine Hryvnia UYU-Uruguayan New Peso VUV-Vanuatu Vatu VEB-Venezuelan Bolivar VND-Vietnam Dong YER-Yemen Riyal YUM-Yugoslav Dinar ZMK-Zambian Kwacha ZWD-Zimbabwe Dollar %list% a_From.initialize(temp_list) DELETE a_to DIM a_to[151] as c dim temp_list as c temp_list = <<%list% AFA-Afghanistan Afghani ALL-Albanian Lek DZD-Algerian Dinar ARS-Argentine Peso AWG-Aruba Florin AUD-Australian Dollar BSD-Bahamian Dollar BHD-Bahraini Dinar BDT-Bangladesh Taka BBD-Barbados Dollar BZD-Belize Dollar BMD-Bermuda Dollar BTN-Bhutan Ngultrum BOB-Bolivian Boliviano BWP-Botswana Pula BRL-Brazilian Real GBP-British Pound BND-Brunei Dollar BIF-Burundi Franc XOF-CFA Franc (BCEAO) XAF-CFA Franc (BEAC) KHR-Cambodia Riel CAD-Canadian Dollar CVE-Cape Verde Escudo KYD-Cayman Islands Dollar CLP-Chilean Peso CNY-Chinese Yuan COP-Colombian Peso KMF-Comoros Franc CRC-Costa Rica Colon HRK-Croatian Kuna CUP-Cuban Peso CYP-Cyprus Pound CZK-Czech Koruna DKK-Danish Krone DJF-Dijibouti Franc DOP-Dominican Peso XCD-East Caribbean Dollar EGP-Egyptian Pound SVC-El Salvador Colon EEK-Estonian Kroon ETB-Ethiopian Birr EUR-Euro FKP-Falkland Islands Pound GMD-Gambian Dalasi GHC-Ghanian Cedi GIP-Gibraltar Pound XAU-Gold Ounces GTQ-Guatemala Quetzal GNF-Guinea Franc GYD-Guyana Dollar HTG-Haiti Gourde HNL-Honduras Lempira HKD-Hong Kong Dollar HUF-Hungarian Forint ISK-Iceland Krona INR-Indian Rupee IDR-Indonesian Rupiah IQD-Iraqi Dinar ILS-Israeli Shekel JMD-Jamaican Dollar JPY-Japanese Yen JOD-Jordanian Dinar KZT-Kazakhstan Tenge KES-Kenyan Shilling KRW-Korean Won KWD-Kuwaiti Dinar LAK-Lao Kip LVL-Latvian Lat LBP-Lebanese Pound LSL-Lesotho Loti LRD-Liberian Dollar LYD-Libyan Dinar LTL-Lithuanian Lita MOP-Macau Pataca MKD-Macedonian Denar MGF-Malagasy Franc MWK-Malawi Kwacha MYR-Malaysian Ringgit MVR-Maldives Rufiyaa MTL-Maltese Lira MRO-Mauritania Ougulya MUR-Mauritius Rupee MXN-Mexican Peso MDL-Moldovan Leu MNT-Mongolian Tugrik MAD-Moroccan Dirham MZM-Mozambique Metical MMK-Myanmar Kyat NAD-Namibian Dollar NPR-Nepalese Rupee ANG-Neth Antilles Guilder NZD-New Zealand Dollar NIO-Nicaragua Cordoba NGN-Nigerian Naira KPW-North Korean Won NOK-Norwegian Krone OMR-Omani Rial XPF-Pacific Franc PKR-Pakistani Rupee XPD-Palladium Ounces PAB-Panama Balboa PGK-Papua New Guinea Kina PYG-Paraguayan Guarani PEN-Peruvian Nuevo Sol PHP-Philippine Peso XPT-Platinum Ounces PLN-Polish Zloty QAR-Qatar Rial ROL-Romanian Leu RUB-Russian Rouble WST-Samoa Tala STD-Sao Tome Dobra SAR-Saudi Arabian Riyal SCR-Seychelles Rupee SLL-Sierra Leone Leone XAG-Silver Ounces SGD-Singapore Dollar SKK-Slovak Koruna SIT-Slovenian Tolar SBD-Solomon Islands Dollar SOS-Somali Shilling ZAR-South African Rand LKR-Sri Lanka Rupee SHP-St Helena Pound SDD-Sudanese Dinar SRG-Surinam Guilder SZL-Swaziland Lilageni SEK-Swedish Krona TRY-Turkey Lira CHF-Swiss Franc SYP-Syrian Pound TWD-Taiwan Dollar TZS-Tanzanian Shilling THB-Thai Baht TOP-Tonga Pa'anga TTD-Trinidad&Tobago Dollar TND-Tunisian Dinar TRL-Turkish Lira USD-U.S. Dollar AED-UAE Dirham UGX-Ugandan Shilling UAH-Ukraine Hryvnia UYU-Uruguayan New Peso VUV-Vanuatu Vatu VEB-Venezuelan Bolivar VND-Vietnam Dong YER-Yemen Riyal YUM-Yugoslav Dinar ZMK-Zambian Kwacha ZWD-Zimbabwe Dollar %list% a_to.initialize(temp_list) ok_button_label = "&OK" cancel_button_label = "&Cancel" varC_result = ui_dlg_box("Currency Conversion",<<%dlg% {region} {Region} ; {Endregion}; {Region} Covert:| [.40,5From^#a_From]| To:| [.40,5to^#a_to]; Amount:| [%z%.10Amount]; {Endregion}; {Region} ; {Endregion}; {line=1,0}; <*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>; {endregion}; %dlg%) delete x delete p f = word(from,1,"-") t = word(to,1,"-") x = http_get("http://www.webservicex.net/CurrencyConvertor.asmx/ConversionRate?FromCurrency="+f+"&ToCurrency="+t) result = extract_string(x.body,"<double xmlns=\"http://www.webserviceX.NET/\">","</double>") r = amount*convert_type(result,"n") p.from = From p.to = to p.amount = Amount p.result = r curr_con = p END FUNCTION
Leave a comment: