Importul cursurilor de schimb de pe site-ul BNU către LibreOffice Calc

NBU_RATE() Descriere

O funcție gata făcută pentru cei care trebuie să folosească adesea cursurile valutare BNU în LibreOffice Calc .

Ajută la obținerea automată a valorii cursului de schimb de la Site-ul BNU după codul și data acestuia.

Cod StarBASIC pentru funcția NBU_RATE

Pentru a adăuga o caracteristică cursurile de schimb de import ale BNU , deschide 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

Inchide-l Macro Editor și întoarce-te la LibreOffice Calc .

Acum puteți introduce manual funcția noastră NBU_RATE() . Sintaxa acestei funcții este următoarea:

=NBU_RATE ( codul valutar ; Data )

Vom avea urmatorul rezultat:

Folosind extensia

De asemenea, puteți utiliza funcția NBUA() instalând extensia gratuită YouLibreCalc.oxt sau versiunea sa cu funcții complete YLC_Utilities.oxt .

După aceea, această funcție va fi disponibilă în toate fișierele care vor fi deschise în LibreOffice Calc.