Merhabalar,
Troia da elde edilen integer verilerin parasal değerlere dönüştürülmesi ve bu değerlerin makbuz vs gibi yerlerde yazıyla yazılması gerekliliği için troia dilinde 2 fonksiyon tanımlanmıştır. Bunlar MONEYTOTEXT () ve CONVERTTOMONEY () fonksiyonlarıdır.
Görsele ait kodlar şu şekildedir ;
OBJECT: STRING V1,INTEGER V2,
STRING STRMONEY1,STRING TMPSTR1;
/*CONVERTTOMONEY*/
V1 = ‘111’;
V2 = 111;
DECIMALVAR1 = CONVERTTOMONEY(V1);
DECIMALVAR2 = CONVERTTOMONEY(V2);
/*MONEYTOTEXT*/
STRMONEY1 = ‘26000.00’;
STRINGVAR1 = MONEYTOTEXT( STRMONEY1, ‘T’ );
TMPSTR1 = ‘%’;
INTEGERVAR1 = STRPOS(STRINGVAR1, TMPSTR1);
STRINGVAR2 = STRSTR(STRINGVAR1, 0, INTEGERVAR1 – 2);
STRINGVAR3 = STRSTR(STRINGVAR1, INTEGERVAR1 + 1, 999 );
1-) CONVERTTOMONEY
V1 ve V2 integer/string olarak bu fonksiyona gönderdiğimiz değerleri tutmaktadır. Fonksiyon sonuçları görselimizde ki DECIMAL başlığının altındaki var1 ve var2 parametrelerinin bulunduğu alanlara yazılmıştır.
2-) MONEYTOTEXT
STRMONEY1 değişkeni ile bir değer verilen bu fonksiyonun sonucu ‘T’ yani türkçe olacak şekilde çıktı üretir. Bu sonuç her zaman için tl olan kısım ile kuruş olan kısım arasında % işaretini üretir. Örneğin 35600.30 için OTUZBEŞBİNALTIYÜZ % OTUZ veya 25000.00 için YİRMİBEŞBİN % SIFIR gibi.
Bu değerleri aldıktan sonra kullanmak bize kalmış. Ama yukarıdaki yazdığım kod u kendi sisteminizde de olduğu gibi kullanabilirsiniz.
STRPOS fonksiyonu ile % işaretinin yerini bulup (INTEGERVAR1 değişkeni ile görselde yazdırdığımız yer ) bu değerin TL olan kısmını almak için STRSTR fonksiyonu ile önce STRINGVAR2 değişkeni için ürettiğimiz kodda , kuruş olarak almak istediğiniz kısım içinse STRINGVAR3 değişkeni için ürettiğimiz kodda kullanabilirsiniz.
İyi çalışmalar..
{ } Veritabanı & Yazılım Geliştirme 