TOP

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

NBU_RATE() विवरण

उन लोगों के लिए एक रेडीमेड फ़ंक्शन जिन्हें अक्सर मुद्रा दरों का उपयोग करना पड़ता है एनबीयू में LibreOffice Calc .

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

StarBASIC फ़ंक्शन के लिए कोड 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 ( मुद्रा कोड ; तारीख )

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