उन लोगों के लिए एक तैयार फ़ंक्शन जिन्हें अक्सर LibreOffice calc में NBU विनिमय दरों का उपयोग करना पड़ता है।
से विनिमय दर का मूल्य स्वचालित रूप से प्राप्त करने में मदद करता है एनबीयू वेबसाइट उसके कोड और दिनांक के अनुसार।
NBU विनिमय दरों को आयात करने के फ़ंक्शन को जोड़ने के लिए, मेनू Tools - Macros - Edit Macros... खोलें, Module1 चुनें और निम्नलिखित पाठ को इस मॉड्यूल में कॉपी करें:
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 को बंद करें और LibreOffice calc पर वापस लौटें।
अब आप मैन्युअल रूप से हमारे NBU_RATE() फ़ंक्शन को दर्ज कर सकते हैं। इस फ़ंक्शन का सिंटैक्स इस प्रकार है:
=NBU_RATE (
हमारे पास निम्नलिखित परिणाम होंगे:
आप एक्सटेंशन सेट करके NBURATE() फ़ंक्शन का भी उपयोग कर सकते हैं " YouLibrecalc.oxt "। उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice calc में खोली जाएंगी।