Yeni Türk Lirası

Anasayfa

Bu ActiveX DLL i ile Türk Lirası ve Yeni Türk Lirası tutarlarınızı yazıyla gösterebilirsiniz.

Tarihçe:

09.12.2004, Sadece Baş Harfler büyük olsun kısmı ile ilgili düzeltme yapıldı.
07.12.2004, örnek ASP uygulaması eklendi.
03.12.2004, sürüm 1.0.0 yayınlandı.

Bu kütüphane ile birlikte gelen Class lar:

YTLYaziyla
Bu Class ile herhangi bir sayının metin olarak ifadesini öğrenebilirsiniz.

Properties (Özellikler):

YTLMetni as String. Tamsayı metninin arkasına gelecek metin.
Örn: "YTL", "TL", "YeniTürkLirası", "TürkLirası"
YKrMetni as String. Ondalık sayı metninin arkasına gelecek metin.
Örn: "YKr", "YeniKuruş"
YTLOnEkMetni as String. Tüm tutar metninin önüne getirilecek ek metin.
Örn: "YALNIZ", "#"
Copyright as String. [Telif] hakkı metni.
Version as String. Bileşenin sürüm bilgisi.

Methods:

Yaziyla1 ( Currency cTutar, String tBolumAyrac, String tOndalikAyrac, Boolean bSIFIRBos, SbsYTLHarfler iHarfler, Long iOndalikHane ) as String.
Tutar, kısım ayracı, ondalık ayracı, sıfırın yazılıp yazılmaması ve ondalık hanesinin kaç hane olacağı belirtildikten sonra bu method size girilen tutarın yazıyla ifadesini döndürür. Hatalı ya da yüksek bir tutar girilmesi durumunda fonksiyon "HATA" döndürür.
StrCnvTR as String ( String strInputT, VbStrConv Conversion, Long LocaleID ). Girilen metnin türkçe olarak küçük, büyük ya da baş harfleri büyük olacak şekilde halini döndürür.

Nasıl kullanacaksınız:

Örnek VB 6.0 kodu:

  Dim tYaziylaFaturaDipToplam As String
  Dim cTutar As Currency
  cTutar = 1234.56

  Dim objYTLYaziyla As SbsSoftYTL.YTLYaziyla
  Set objYTLYaziyla = New SbsSoftYTL.YTLYaziyla
  objYTLYaziyla.YTLOnEkMetni = "YALNIZ"
  objYTLYaziyla.YKrMetni = "YKr"
  objYTLYaziyla.YTLMetni = "YTL"
  'Debug.Print objYTLYaziyla.Version
  tYaziylaFaturaDipToplam = objYTLYaziyla.Yaziyla1(cTutar, ",", "+", False, 0, 2)
  Set objYTLYaziyla = Nothing
  Debug.Print Format$(cTutar, "#,#0.00")
  Debug.Print tYaziylaFaturaDipToplam

Çıktı: (Immediate window output)

1.234,56
YALNIZBin,İkiYüzOtuzDörtYTL+ElliAltıYKr

Online test sayfası için tıklayın

Not: Yukarıdaki örnekte işletim sisteminin ayarları, binlik ayracı olarak [,] virgül, ondalık ayracı olarak ta [.] nokta kullanılmıştır.
İşletim sisteminizin bölgesel ayarlarına göre bu ayraçlara dikkat etmelisiniz.
Yukarıdaki örnek kod da, bileşen de bölgesel ayarlara bağımlı değildir.

Örnekler

YTLÖnEkMetni	BinlikBölümAyracı	YTLMetni	OndalıkAyraç	YKrMetni	SıfırYazma	Harfler	OndalıkHane	Tutar	Yazıyla
YALNIZ	-	YTL	+	YKr	False	0-Nötr	2	1.234,50	YALNIZBin-İkiYüzOtuzDörtYTL+ElliYKr
YALNIZ	-	YTL	+++	YKr	False	0-Nötr	2	1.234,50	YALNIZBin-İkiYüzOtuzDörtYTL+++ElliYKr
YALNIZ	-	YTL	+	YKr	False	1-BÜYÜK HARF	2	1.234,50	YALNIZBİN-İKİYÜZOTUZDÖRTYTL+ELLİYKr
YALNIZ	-	YTL	+	YKr	False	2-küçük harf	2	1.234,50	YALNIZbin-ikiyüzotuzdörtYTL+elliYKr
YALNIZ	-	YTL	+	YKr	False	0-Nötr	2	1.001,00	YALNIZBin-BirYTL+SıfırYKr
YALNIZ	-	YTL	+	YKr	True	0-Nötr	2	1.001,00	YALNIZBin-BirYTL
#	-	TL	+	Kr	True	0-Nötr	2	1.012,08	#Bin-OnİkiTL+SekizKr
#		TL	+	Kr	True	0-Nötr	2	1.012,08	#BinOnİkiTL+SekizKr
#			[Nokta]		True	0-Nötr	2	1.012,08	#BinOnİki[Nokta]Sekiz
#			[Nokta]		True	0-Nötr	2	1.012,80	#BinOnİki[Nokta]Seksen
YALNIZ	,	TL		Kr	True	0-Nötr	2	1.012,80	YALNIZBin,OnİkiTLSeksenKr
YALNIZ	,	TL		Kr	True	0-Nötr	2	1.000.872,00	YALNIZBirMilyon,SekizYüzYetmişİkiTL
YALNIZ	,	TL	+	Kr	True	0-Nötr	0	1.000.872,75	YALNIZBirMilyon,SekizYüzYetmişİkiTL
YALNIZ	,	YTL	+	YKr	False	0-Nötr	2	0,50	YALNIZSıfırYTL+ElliYKr
YALNIZ	,	YTL	+	YKr	True	0-Nötr	2	0,50	YALNIZElliYKr

Bileşenin çalışması için gereklilikler:
Visual Basic 6.0 Run-Time

Windows Update, İşletim sisteminizi de güncellemeyi unutmayın

	SBSSoftYTL.zip (18 Kb)	ActiveX DLL VB 6.0
.Net sürümü	SbsSoftYTLNet.zip (9 Kb)	ActiveX DLL .Net 1.1