GetKurN Fonksiyonu

Tanım


Belirli bir tarihteki, bir döviz cinsinin, başka bir döviz cinsinden kur değerini veren fonksiyondur. Fonksiyon verilen tarihte bir kur değeri bulamazsa, bir kur değeri bulana kadar bir önceki tarihe bakar. Kur değerini, ondalık kısımda 6 (altı) haneye yuvarlayarak getirir. Yuvarlama yapılması istenmiyorsa fonksiyona belirtilmelidir.


İşlemleri günlük döviz kurları girişindeki verilere göre yapar. Çapraz kurları hesaplama yeteneği vardır. Örneğin eğer sisteme USD döviz kodunun, EURO döviz kodu cinsinden kur değeri girilmemişse, ilgili döviz kodlarının lokal para birimi cinsinden kur değerlerine bakar. Eğer her iki döviz kodunun da lokal para birimi cinsinden değeri var ise bunları kullanıp çapraz kur olarak bilgi geri döner.

Kullanım Şekli


Değişken = Document.GetKurN(DövizKodu, ÇevrilecekDövizKodu, Tarih, KurTipi, HesaplamaSeçeneği)

Ana Nesne


Document (Doc) nesnesinin elemanıdır. Bir doküman nesnesi ile kullanılmak zorundadır.

Parametreler


Parametre

Açıklama

DövizKodu

Kur değeri bulunacak olan döviz kodu. Sistemde tanımlı olan para birimleri cinsinden girilmelidir.

ÇevrilecekDövizKodu

Kur değerinin hangi para biriminden bulunacağını gösteren döviz kodu. Sistemde tanımlı olan para birimleri cinsinden girilmelidir.

Tarih

Kur değerinin bulunacağı tarih. Tarih cinsinden girilmelidir.

KurTipi

Sistemde bir döviz koduna, bir tarihte 10 (on) farklı kur tipinde değer atanabilir. Bu kur tiplerinden, hangisinin değerinin getirileceğinin bu KurTipi parametresi belirtir. Karakter dizisi formatında girilmelidir. Boş değer girilirse “1” sistem döviz kuru seçeneği ile işlem görecektir. Hatalı değerlerde, özellikle hatalı kullanılmasın diye “45345” kodlu hata verilerek uygulamanın çalışması sonlandırılır.

Seçenekleri:

“1” : Sistem döviz kuru

“2” : Tahmini döviz kuru

“3” : TCMB döviz alış kuru

“4” : TCMB döviz satış kuru

“5” : TCMB efektif alış kuru

“6” : TCMB efektif satış kuru

Bundan sonraki seçenekler, şirket amaçlarına uygun olarak kullanılması için şirket kullanıcılarına bırakılmıştır. Genelde aşağıdaki şekilde kullanılırlar:

“7” : Banka döviz alış

“8” : Banka döviz satış

“9” : Banka efektif alış

“A” : Banka efektif satış

HesaplamaSeçeneği

Bu fonksiyonda bir anlamı olan seçenekler :

“-1” : Kur değeri yuvarlama yapılarak dönülür.

“8192” : Kur değeri yuvarlama yapılmadan geri dönülür.


Geri Dönen Değerler


Verilen parametrelere göre, ondalıklı sayı cinsinden bir kur değeri geri dönülür. Bir değişkene atanarak kullanılmalıdır.

Hatırlatmalar


•Eğer fonksiyona anlamlı ama geçersiz bir parametre kodu girilirse, geri dönüş değeri 0 (sıfır) olacaktır.

•Eğer fonksiyona anlamsız ve geçersiz bir KurTipi değeri girilirse uygulamanın çalışmasını sonlandırır.

•Para birimlerinin kodları tamamen “*PUNIT” grup kodunda girilmiş olan bilgilere bağlıdır.

Örnek


Sub Makro1()

       Tarih = "2017/03/05"

       USDTLKuru = Doc.GetKurN("USD","TL",Tarih,"1",-1)        

       Mesaj = Tarih & " tarihindeki USD dövizinin TL döviz cinsinden kuru : " & USDTLKuru

       EUROTLKuru = Doc.GetKurN("EURO","TL",Tarih,"1",-1)        

       Mesaj = Mesaj & chr(13) & Tarih & " tarihindeki EURO dövizinin TL döviz cinsinden kuru : " & EUROTLKuru

       USDEUROKuru = Doc.GetKurN("USD","EURO",Tarih,"1",-1)        

       Mesaj = Mesaj & chr(13) & Tarih & " tarihindeki USD dövizinin EURO döviz cinsinden kuru : " & USDEUROKuru

       Doc.MsgBox Mesaj

End Sub



Yukarıdaki örnekte, istenilen kur değerleri aşağıdaki mesaj kutusunda gösterilmiştir. 2017/03/05 tarihi, Pazar günü olduğundan sisteme kur girilmemiştir. Bu durumda fonksiyon 2017/03/03 tarihindeki kur değerlerini bulana kadar geri gitmiştir. Üçüncü satırda USD döviz kodunun, EURO döviz kuru değerinin fonksiyon tarafından hesaplanmış çapraz kur değeri görülmektedir.



Paylaşım Makrosu