Una función lista para usar para aquellos que a menudo tienen que utilizar los tipos de cambio NBU 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.
Para agregar la función de importar tipos de cambio NBU, abra el menú Tools - Macros - Edit Macros..., seleccione 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
Cierre Macro Editor y regrese a LibreOffice Calc.
Ahora puede ingresar manualmente nuestra función NBU_RATE(). La sintaxis de esta función es la siguiente:
=NBU_RATE (
Tendremos el siguiente resultado:
También puede utilizar la función NBURATE() configurando la extensión " YouLibreCalc.oxt ". Después de eso, esta función estará disponible en todos los archivos que se abrirán en LibreOffice Calc.