Importación de tipos de cambio desde el sitio web del NBU a LibreOffice Calc

NBU_RATE() Descripción

Una función lista para usar para aquellos que a menudo tienen que utilizar tipos de cambio BNU en LibreOffice Calc .

Ayuda a obtener automáticamente el valor del tipo de cambio de sitio web de la BNU por su código y fecha.

StarBASIC código para la función NBU_RATE

Para agregar una característica tipos de cambio de importación del NBU , abre el menú Tools - Macros - Edit Macros... , seleccionar Module1 y copie el siguiente texto en este módulo:

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

Cierralo Macro Editor y volver a LibreOffice Calc .

Ahora puedes ingresar manualmente a nuestra función. NBU_RATE() . La sintaxis de esta función es la siguiente:

=NBU_RATE ( código de moneda ; fecha )

Tendremos el siguiente resultado:

Usando la extensión

También puede utilizar la función NBUA() instalando la extensión gratuita YouLibreCalc.oxt o su versión con todas las funciones YLC_Utilities.oxt .

Después de eso, esta función estará disponible en todos los archivos que se abrirán en LibreOffice Calc.