Una funzione già pronta per coloro che devono utilizzare spesso i tassi di cambio NBU in LibreOffice Calc.
Aiuta a ottenere automaticamente il valore del tasso di cambio Sito web dell'NBU dal suo codice e dalla data.
Per aggiungere la funzione di importazione dei tassi di cambio NBU, aprire il menu Tools - Macros - Edit Macros..., selezionare Module1 e copiare il seguente testo in questo modulo:
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
Chiudi Macro Editor e torna a LibreOffice Calc.
Ora puoi inserire manualmente la nostra funzione NBU_RATE(). La sintassi di questa funzione è la seguente:
=NBU_RATE (
Avremo il seguente risultato:
Puoi anche utilizzare la funzione NBURATE() impostando l'estensione " YouLibreCalc.oxt ". Successivamente, questa funzione sarà disponibile in tutti i file che verranno aperti in LibreOffice Calc.