NBU 웹사이트에서 LibreOffice Calc로 환율 가져오기

NBU_RATE() 설명

환율을 자주 사용해야 하는 분들을 위해 미리 만들어진 기능 NBU ~에 LibreOffice Calc .

환율의 가치를 자동으로 구하는 데 도움이 됩니다. NBU 웹사이트 코드와 날짜로.

NBU_RATE 함수에 대한 StarBASIC 코드

기능을 추가하려면 NBU의 수입 환율 , 메뉴를 엽니다 Tools - Macros - Edit Macros... , 선택하다 모듈1 다음 텍스트를 이 모듈에 복사합니다.

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 ( 통화 코드 ; 날짜 )

우리는 다음과 같은 결과를 얻게 될 것입니다:

확장 프로그램 사용

무료 확장 프로그램을 설치하여 NBUA() 함수를 사용할 수도 있습니다. YouLibreCalc.oxt 또는 모든 기능을 갖춘 버전 YLC_Utilities.oxt .

그 후에는 LibreOffice Calc에서 열리는 모든 파일에서 이 기능을 사용할 수 있습니다.