LibreOffice Calc'de NBU döviz kurlarını sıklıkla kullanmak zorunda kalanlar için hazır bir işlev.
Döviz kurunun değerini otomatik olarak elde etmeye yardımcı olur NBU web siteleri koduna ve tarihine göre.
NBU döviz kurlarını içe aktarma işlevini eklemek için Tools - Macros - Edit Macros... menüsünü açın, Module1'yi seçin ve aşağıdaki metni bu modüle kopyalayın:
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
Macro Editor'u kapatın ve LibreOffice Calc'ye dönün.
Artık NBU_RATE() fonksiyonumuzu manuel olarak girebilirsiniz. Bu fonksiyonun sözdizimi aşağıdaki gibidir:
=NBU_RATE (
Aşağıdaki sonuca sahip olacağız:
"NBURATE() işlevini" uzantısını ayarlayarak da kullanabilirsiniz. YouLibreCalc.oxt ". Bundan sonra LibreOffice Calc'de açılacak tüm dosyalarda bu fonksiyon mevcut olacaktır.