NBU वेबसाइट से LibreOffice calc पर विनिमय दरों का आयात

NBU_RATE() विवरण

उन लोगों के लिए एक तैयार फ़ंक्शन जिन्हें अक्सर LibreOffice calc में NBU विनिमय दरों का उपयोग करना पड़ता है।

से विनिमय दर का मूल्य स्वचालित रूप से प्राप्त करने में मदद करता है एनबीयू वेबसाइट उसके कोड और दिनांक के अनुसार।

फ़ंक्शन के लिए BASIC कोड NBU_RATE

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 ( मुद्रा कोड ; तारीख )

हमारे पास निम्नलिखित परिणाम होंगे:

YouLibrecalc एक्सटेंशन का उपयोग करना

आप एक्सटेंशन सेट करके NBURATE() फ़ंक्शन का भी उपयोग कर सकते हैं " YouLibrecalc.oxt "। उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice calc में खोली जाएंगी।