Uma função pronta para quem costuma usar taxas de câmbio NBU em LibreOffice Calc.
Ajuda a obter automaticamente o valor da taxa de câmbio de Site da NBU por seu código e data.
Para adicionar a função de importação de taxas de câmbio NBU, abra o menu Tools - Macros - Edit Macros..., selecione Module1 e copie o seguinte texto neste 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
Feche Macro Editor e retorne para LibreOffice Calc.
Agora você pode inserir manualmente nossa função NBU_RATE(). A sintaxe desta função é a seguinte:
=NBU_RATE (
Teremos o seguinte resultado:
Você também pode usar a função NBURATE() definindo a extensão " YouLibreCalc.oxt ". Depois disso, esta função estará disponível em todos os arquivos que serão abertos em LibreOffice Calc.