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

NBU_RATE() الوصف

وظيفة جاهزة لأولئك الذين غالبًا ما يضطرون إلى استخدام أسعار صرف البنك الوطني الأوكراني في 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 ( رمز العملة ; تاريخ )

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

باستخدام ملحق YouLibreCalc

يمكنك أيضًا استخدام الدالة NBURATE() عن طريق تعيين الامتداد " YouLibreCalc.oxt ". بعد ذلك، ستكون هذه الوظيفة متاحة في جميع الملفات التي سيتم فتحها في LibreOffice Calc.