[مقال] كيفية تحويل اسعار العملات بإستخدام Yahoo Exchange Rates Web Service

إقتباس :EGP 'Egyptian Pound
AED 'United Arab Emirates Dirham
ANG 'Netherlands Antillean Guilder
ARS 'Argentine Peso
AUD 'Australian Dollar
BDT 'Bangladeshi Taka
BGN 'Bulgarian Lev
BHD 'Bahraini Dinar
BND 'Brunei Dollar
BOB 'Bolivian Boliviano
BRL 'Brazilian Real
BWP 'Botswanan Pula
CAD 'Canadian Dollar
CHF 'Swiss Franc
CLP 'Chilean Peso
CNY 'Chinese Yuan
COP 'Colombian Peso
CRC 'Costa Rican Colón
CZK 'Czech Republic Koruna
DKK 'Danish Krone
DOP 'Dominican Peso
DZD 'Algerian Dinar
EEK 'Estonian Kroon
EUR 'Euro
FJD 'Fijian Dollar
GBP 'British Pound Sterling
HKD 'Hong Kong Dollar
HNL 'Honduran Lempira
HRK 'Croatian Kuna
HUF 'Hungarian Forint
IDR 'Indonesian Rupiah
ILS 'Israeli New Sheqel
INR 'Indian Rupee
JMD 'Jamaican Dollar
JOD 'Jordanian Dinar
JPY 'Japanese Yen
KES 'Kenyan Shilling
KRW 'South Korean Won
KWD 'Kuwaiti Dinar
KYD 'Cayman Islands Dollar
KZT 'Kazakhstani Tenge
LBP 'Lebanese Pound
LKR 'Sri Lankan Rupee
LTL 'Lithuanian Litas
LVL 'Latvian Lats
MAD 'Moroccan Dirham
MDL 'Moldovan Leu
MKD 'Macedonian Denar
MUR 'Mauritian Rupee
MVR 'Maldivian Rufiyaa
MXN 'Mexican Peso
MYR 'Malaysian Ringgit
NAD 'Namibian Dollar
NGN 'Nigerian Naira
NIO 'Nicaraguan Córdoba
NOK 'Norwegian Krone
NPR 'Nepalese Rupee
NZD 'New Zealand Dollar
OMR 'Omani Rial
PEN 'Peruvian Nuevo Sol
PGK 'Papua New Guinean Kina
PHP 'Philippine Peso
PKR 'Pakistani Rupee
PLN 'Polish Zloty
PYG 'Paraguayan Guarani
QAR 'Qatari Rial
RON 'Romanian Leu
RSD 'Serbian Dinar
RUB 'Russian Ruble
SAR 'Saudi Riyal
SCR 'Seychellois Rupee
SEK 'Swedish Krona
SGD 'Singapore Dollar
SKK 'Slovak Koruna
SLL 'Sierra Leonean Leone
SVC 'Salvadoran Colón
THB 'Thai Baht
TND 'Tunisian Dinar
TRY 'Turkish Lira
TTD 'Trinidad and Tobago Dollar
TWD 'New Taiwan Dollar
TZS 'Tanzanian Shilling
UAH 'Ukrainian Hryvnia
UGX 'Ugandan Shilling
USD 'US Dollar
UYU 'Uruguayan Peso
UZS 'Uzbekistan Som
VEF 'Venezuelan Bolívar
VND 'Vietnamese Dong
XOF 'CFA Franc BCEAO
YER 'Yemeni Rial
ZAR 'South African Rand
ZMK 'Zambian Kwacha

PHP كود :

Imports System.Net 'System.Net.dll
Imports System.Web.Script.Serialization 'System.Web.Extensions.dll
Module mdlCurrencyRate
Public Function Get_Currency_Rate(ByVal currFromName As String, ByVal currToName As String) As Double
Dim result As Double = 0.0
Dim wbServiceLink = "http://www.finance.yahoo.com/d/quotes.csv?e=.csv&f=sl1d1t1&s={0}{1}=X"
Dim url As String = String.Format(wbServiceLink, currFromName, currToName)
Dim client As New WebClient()
Dim rates As String = client.DownloadString(url) 'Returns: ""SAREGP=X",1.8355,"11/19/2013","8:53pm""
Dim rate_part As String = Split(rates, ",")(1)
If Double.TryParse(rate_part, result) Then
result = CDbl(rate_part)
End If
Return result
End Function
End Module

سلام عليكم أستاذي الكريم
والله فرحان انك نورتنا في المنتدى الجديد Big Grin

جزاك الله كل خير على مجهودك العظيم جعله الله في ميزان حسناتك

بعد إذن حضرتك تم تعديل الموضوع " لكي أضيف رابط المرفقات " وتم إعتمادها .

بالنسبة لمشاركاتك القديمة بالمنتدى القديم فهي لازالت معنا بحمد الله تستطيع ان تطلب رابط التحميل من الإدارة

بالتوفيق