TOP
Döviz kurlarının NBU web sitesinden LibreOffice Calc'a aktarılması
NBU_RATE() Açıklama
Sık sık döviz kurlarını kullanmak zorunda kalanlar için hazır bir işlev NBU içinde LibreOffice Calc .
Döviz kurunun değerini otomatik olarak elde etmeye yardımcı olur NBU web sitesi koduna ve tarihine göre.
StarBASIC NBU_RATE işlevi için kod
Özellik eklemek için NBU ithalat döviz kurları , menüyü aç Tools - Macros - Edit Macros... , seçme Module1 ve aşağıdaki metni bu modüle kopyalayın:
- Function NBU_RATE(ByVal pCurrency, ByVal pDate)
-
- 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
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
Kapat onu Macro Editor ve geri dön LibreOffice Calc .
Artık fonksiyonumuza manuel olarak girebilirsiniz NBU_RATE() . Bu fonksiyonun sözdizimi aşağıdaki gibidir:
=NBU_RATE ( para birimi kodu ; tarih )
Aşağıdaki sonuca sahip olacağız:
Uzantıyı kullanma
Ücretsiz uzantıyı yükleyerek NBUA() işlevini de kullanabilirsiniz. YouLibreCalc.oxt veya tam özellikli sürümü YLC_Utilities.oxt .
Bundan sonra bu fonksiyon LibreOffice Calc'de açılacak tüm dosyalarda mevcut olacaktır.