Import kursów walut ze strony internetowej NBU do LibreOffice Calc

NBU_RATE() Opis

Gotowa funkcja dla tych, którzy często muszą korzystać z kursów walut NBU W LibreOffice Calc .

Pomaga automatycznie uzyskać wartość kursu wymiany z stronie internetowej NBU według kodu i daty.

StarBASIC kod dla funkcji NBU_RATE

Aby dodać funkcję kursy walut importowych NBU , otwórz menu Tools - Macros - Edit Macros... , wybierać Moduł1 i skopiuj następujący tekst do tego modułu:

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

Zamknij to Macro Edytor i wróć do LibreOffice Calc .

Teraz możesz ręcznie wprowadzić naszą funkcję NBU_RATE() . Składnia tej funkcji jest następująca:

=NBU_RATE ( kod waluty ; data )

Będziemy mieli następujący wynik:

Korzystanie z rozszerzenia

Możesz także użyć funkcji NBUA(), instalując bezpłatne rozszerzenie YouLibreCalc.oxt lub jego w pełni funkcjonalna wersja YLC_Utilities.oxt .

Od tego momentu ta funkcja będzie dostępna we wszystkich plikach, które zostaną otwarte w LibreOffice Calc.