O funcție gata făcută pentru cei care trebuie adesea să folosească cursurile de schimb BNU în LibreOffice Calc.
Ajută la obținerea automată a valorii cursului de schimb de la Site-ul BNU după codul și data acestuia.
Pentru a adăuga funcția de import a cursurilor de schimb BNU, deschideți meniul Tools - Macros - Edit Macros..., selectați Module1 și copiați următorul text în acest modul:
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
Închideți Macro Editor și reveniți la LibreOffice Calc.
Acum puteți introduce manual funcția noastră NBU_RATE(). Sintaxa acestei funcții este următoarea:
=NBU_RATE (
Vom avea urmatorul rezultat:
De asemenea, puteți utiliza funcția NBURATE() setând extensia " YouLibreCalc.oxt „. După aceea, această funcție va fi disponibilă în toate fișierele care vor fi deschise în LibreOffice Calc.