faiz hesabı

[mdeneri]

arkadaşlar kira gelirimiz var bu kira gelirlerini geç yatıranlar için her aya % 1.25 gecikme cezası alıyoruz. Kiralar her ayın 5'ine kadar (5'i akşam son fakat tatile gelirse bir sonraki iş gününe kadar müsadesi var) yatması gerekir bunun için bir hesaplama programı yapmak istiyorum yardımcı olurmusunuz. Ã?rneğin hesaplama şöyle adamın bir ayı geçmişse kirası da 50 lira ise 0,625 YTL yuvarlam ile 1 ytl alıyoruz, 2 ay geçmişse 1.875 YTL yani yuvarlayarak 2 YTL alıyoruz. yani cezalar 5'inden sonra cezalanıyor ve 1 günd bile geçse % 1,25 alıyoruz Yardımcı olaak arkadaşlara Þimdiden Telekkürler....

 

[happysailor]

Evet arkadaşlar bendede aynı sorun var size zahmet şuna bir el atıverseniz
sizlere çok minettar kalırız ilgilerinize şimdiden teşekkürler

 

[abdi]

Aşağıda sizin için bir fonksiyon yaptım umarım işinize yarar bi deneyin
Ben iki aylık denedim siz daha fazla aylar için deneyin

Function gecikme_hesapla2(ilktarih, sontarih, tutar, oran)
Dim gun As Integer
Dim f, gdeger As Currency
gun = sontarih - ilktarih

'****************************** Gecikme zammı Hesaplama*********************
'f=
f = (gun * tutar * oran) / 3000
gecikme_hesapla2 = WorksheetFunction.RoundUp(f, 0)
End Function

Saygılar sevgiler
Çalışmalarınızda Başarılar Dilerim.

 

[mdener]

Faiz Hesabı

Sayın abdi kardeşimiz bu konuyla ilgilendiğin için teşekkürler ama ben biraz acemiyim öyle her şeyi hemen anlamıyorum onun için biraz detaylı anlatırsan sevinirim yani kodu nasıl çalıştıracağım nereye yazacam yazarsan yaptığın hayırı tamamlamış olursun

Şimdiden
teşekkürler....

 

[happysailor]

ilgi ve alakanız için çok teşekürler arkadaşım

 

[abdi]

Sayın mdener, kardeşim
şimdi bu kodu ilgili çalışma kitabının VBA sayfasını açıp yeni bir modül ekleyerek kod olarak yazacaksın sonra

formulü uygulamak istediğin yerde kullanıcı tanımlı fonksiyon olarak yazdığımız için
kullanımı şöyle olur.
örnek olarak
a2 de ilk tarih olduğu farz ediyoruz
b2 de son tarih olduğunu farz ediyoruz
c2 de gecikme hesaplanacak esas borç tutarının olduğu varsayıldığında
d2 de gecikme zammı oranının olduğu varsayıldığında
gecikme zammını elle de girebiliriz fonksiyona illa hücrede olacak diye bir şart yok

e2 ye şöyle yazıyoruz

=gecikme_hesapla2(a2;b2;c2;d2)

yazıp sonucu görüyoruz

eğerki bu uygulamayı başka farklı yerlerde uygulamak istiyorsanız xla olarak kaydedip istediğiniz çalışma kitabında kullanabilirsiniz.

 

[mdener]

faiz hs

sayın abdi kardeşim teşekkürler ... sizi biraz uğraştırdık ama ....
hayırlı günler...