وظيفة جاهزة لأولئك الذين غالبًا ما يضطرون إلى استخدام أسعار صرف البنك الوطني الأوكراني في LibreOffice Calc.
يساعد في الحصول على قيمة سعر الصرف تلقائيا من موقع البنك الوطني الأوكراني من خلال الكود والتاريخ الخاص به.
لإضافة وظيفة استيراد أسعار صرف البنك الوطني الأوكراني، افتح القائمة 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 (
ستكون لدينا النتيجة التالية:
يمكنك أيضًا استخدام الدالة NBURATE() عن طريق تعيين الامتداد " YouLibreCalc.oxt ". بعد ذلك، ستكون هذه الوظيفة متاحة في جميع الملفات التي سيتم فتحها في LibreOffice Calc.