TOP

استيراد أسعار الصرف من موقع البنك الوطني الأوكراني إلى LibreOffice Calk

وظيفة جاهزة لأولئك الذين غالبًا ما يضطرون إلى استخدام أسعار صرف البنك الوطني الأوكراني في LibreOffice Calc.

يساعد في الحصول على قيمة سعر صرف العملة تلقائيًا من موقع البنك الوطني الأوكراني من خلال الكود والتاريخ الخاص به.



كود BASIC للدالة NBU_RATE

لإضافة وظيفة استيراد أسعار صرف البنك الوطني الأوكراني، افتح القائمة Tools - Macros - Edit Macros...، وحدد Module1 وانسخ النص التالي إلى هذه الوحدة:

Function NBU_RATE(ByVal pCurrency, ByVal pDate)
  'moonexcel.com.ua 
  Dim FCalc As Object
  
  If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function             
      
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
  
  tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD"))
                                                    
  RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
            
  WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString))  
  
  NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit"))    
End Function

أغلق Macro Editor ثم عد إلى LibreOffice Calc.

يمكنك الآن إدخال الدالة NBU_RATE() يدويًا. بناء جملة هذه الوظيفة كما يلي:

=NBU_RATE (رمز العملة; التاريخ)

ستكون لدينا النتيجة التالية: