sağolsun @shadowmann beni uyardı. Bu konuyla ilgili yaptığınız çalışmaları ve bilgilerinizi paylaşmak iyi olur kanaatindeyim. Ciddi bir konu, önceden önlem almak iyi olacaktır.
@shadowmann'in konuyla ilgili yazısı :
....
tl den 6 sıfır atılacak ve 2005 ocakta bu yürürlüğe girecek. yani 1 milyon 1 lira olacak. 100 kuruşda 1 milyon yani 10 bin lira 1 kuruş olacak bu arada yarım kuruş ve altı dikkate alınmayacak üzeri ise 1 kuruşa tamamlanacak.
muhasebe programı hazırlayan büyük şirketler toplantılara katılıp bu konuda hazırlık yapıyorlar.
ben de yazılımcı arkadaşların ihtiyaç duyacağı bu konuda yardımcı olmak isterim. benim excelde hazırladığım formul şu =((A4-(RIGHT(A4;4)))/1000000)+((IF(((RIGHT(A4;4))-5000)>0;1;0))/100) formülden gördüğünüz üzere a4 e yazılan rakamı yeni tl ye çeviriyor. delphi fonksiyonunu buna göre yazmak lazım. diye düşnüyorum.
Halen tedavülde bulunan Türk Lirası banknotlar ile madeni paralar 1/1/2005-31/12/2005 tarihleri arasında Yeni Türk Lirası banknotlarla ve yeni çıkarılacak madeni paralarla birlikte tedavül eder.
Türk Lirası yeni para birimi olan Yeni Türk Lirasına dönüştürülmüş ve Türk Lirasından altı sıfır kaldırılarak, bir milyon Türk Lirası eşittir bir Yeni Türk Lirası (1.000.000 TL = 1 YTL) değişim oranında yeni bir değer getirilmiştir.
Yeni Türk Lirası cinsinden yapılacak işlemlerde bir Yeni Kuruşun altındaki tutarları ödemeye olanak verecek madeni para bulunmaması nedeniyle yarım Yeni Kuruşun üzerindeki değerlerin bir üst Yeni Kuruşa tamamlanması; yarım Yeni Kuruş ve altındaki değerlerin ise dikkate alınmaması öngörülmüştür.
biz de bu konularda çalışmalarımızı devam ettiriyoruz. (muhasebe- vergi. )
ben de yazılımcı arkadaşların ihtiyaç duyacağı bu konuda yardımcı olmak isterim. benim excelde hazırladığım formul şu =((A4-(RIGHT(A4;4)))/1000000)+((IF(((RIGHT(A4;4))-5000)>0;1;0))/100) formülden gördüğünüz üzere a4 e yazılan rakamı yeni tl ye çeviriyor. delphi fonksiyonunu buna göre yazmak lazım. diye düşnüyorum.
Yukarıda yazılmış olan formülü Excel'de çalıştıramadım. Formül doğrumudur?
Yalnız Dikkate Alınması Gereken bir başka konu ise 31 aralık 2005 e kadar şuanda kullandığımız banknot larıda kullanabileceğiz. bu şekilde programlarda hem bugün ki şekilde. hemde yeni sistem aynı anda kullanılacak. bu çok bütük bir kargaşaya sebep olucak tabiki biz programcılar açısından.
mesela bizim sattığımız eta muhasebe programını yazan kişiler ile bu konuyu görüştüğümde bana şu şekilde olacağını söylediler.
normalde atıyorum bizim programda yeni bir şirket açarken , bizim para birimini soruyordu TL/EURO/$ bu şekilde firmalarda aynı anda 2. birimde kullnılabiliyordu. sanırım bu şekilde. Yeni TL nında kullanımı sağlanmış olucak. yani kısaca 2006 ya kadar Yeni TL nı başka bir para birimi olarak göstericekler.
burda asıl dikkat edilmesi gereken (madem ki muhasebe dediniz) alt hesaplar verdiğim formuldeki gibi yeni türk lirasına çevrilecek sonra asıl hesaba toplam yansıtılacak. yoksa sonuçlar birbirini tutmaz. gelecek hafta bu konuda merkez bank. da toplantı olacak.
açıklanacak bir şey olursa ben de yazarım.
En son shadowmann tarafından 20 Eki 2004 05:36 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Bu konuda display ve/veya edit mask kullanılıyorsa ve print out larda
#,## şeklinde belirtimleri de düzeltmek gerekecek sanırım. Çünkü uzun zamandır kuruş kullanılmaması sebebiyle TL den sonraki kısımları ne alıyor ne de gösteriyorduk. Yanlış düşünmüyorum umarım. İlave olarak sizde bu şekilde kullanmıyor musunuz?
Evet problemim RIGHT ifadesini türkçeleştirirken SAĞ olarak türkçeleştirmemden kaynaklanıyormuş Oysaki SAĞDAN olması gerekliymiş. Arkadaşlar ilgileriniz için teşekkürler.
Bu arada Muharrem Hocam ben Fonksiyonu yazmayı düşünürken siz yazmışsınız bile bu ne hız Eh artık hazırı var bizede kullanmak düşüyor:) Ellerinize Sağlık.
estagfirullah arkadaşlar. benim yaptığım çok bir şey yok. ama bir gün bende bu işi çok iyi ögrenirsem vergi ile alakalı bir prgrm yazacagım. şu an excelde yaptığım kısımları var. mantığını oluşturdum tabii asıl iş delhpide uygulamak.
herkese kolay gelsin.( bu arada ankaradan olan arkadaşlara buluşma teklif edecegim. umarım herkes kabul eder. )