Sorguda hesaplama yapamıyorum

[assenucler]

Herkese merhabalar,

Aidat tahakkuku (BorçTarih) her ayın sonunda, ödeme (ÖdemeTarih) en geç ay sonu olmak üzere ay içinde herhangi bir tarihte yapılmaktadır.

Yapmak istediğim geç ödeme yapanlar için aylık %10 (günlük % 0,33) hesabıyla gecikme günü ve gecikme faizini hesaplamaktır.

BorçTarih ÖdemeTarih ÖdenecekTaksit odenen Kalan
30.01.2007 25.01.2007 105.00 105.00 0.00
30.01.2007 01.02.2007 105.00 55.00 50.00
30.01.2007 105.00 0.00 105.00

Ekli dosyamdaki sorguda bunu bir türlü yapamadım.

Eğer sorguda ve form üzerinde çözümü gösterirseniz, bundan büyük bir mutluluk duyacağım.

Gönül dostları olan arkadaşlarımızın yardımını bekliyorum.

Katkısı olacak dostlara öncelikle teşekkürler eder. En derin sevgi ve saygılarımı sunarım.

 

[assenucler]

ekli dosya

Merhabalar,

Kuramadığım sorguya ait veritabanı ektedir. Yardımlarınız için bir bir kez daha teşekkürler.

Not:
Yukarıdaki örnek:

ilk sıradaki işlem ay içinde önceden ödeme yapana aittir.
İkinci işlem, ödemesini 1 gün gecikerek yapan üstelik eksik ödeyene aittir.
Üçüncü işlem, ocak ayı aidat ödemesini şu ana değin yapmayana aittir.

İstenen: Gecikme günü, gecikme faizi ve gecikme faizli bakiyeyi sorguda gösterebilmektir.

 

[beab05]

Ben soruyu çok okudum, örneğe de baktım ama sadece bakıştık.. Anlayamadım ne istediğinizi... Olması gereken değerlerle ya da bi excel tablosuyla yapsanız daha anlaşılır olabilir belki. (en azından benim için)

 

[assenucler]

Açıklama

Ben soruyu çok okudum, örneğe de baktım ama sadece bakıştık.. Anlayamadım ne istediğinizi... Olması gereken değerlerle ya da bi excel tablosuyla yapsanız daha anlaşılır olabilir belki. (en azından benim için)

Sn. beab05;

Yakın ilginiz beni çok mutlu etti, üstadım. Sizi daha fazla bilgilendirmek için hazırladığım klasör ektedir. Bu arada daha önce bu konuda sorduğum soruya Sn. Modalı'nın verdiği yanıttaki fonksiyonu da bilgi yetersizliğim nedeniyle bir türlü kullanamadım.

Dostların ilgisini bir kez daha rica ederim.

Sevgi ve saygılar.

 

[beab05]

Merhaba;
Dosyaları inceledim çok ta güzel ve detaylı hazırlamanıza rağmen yine kafam karıştı, isterseniz şöyle yapalım, adım adım gidelim; örneğin siz deyin ki sadece borç tarihinden ödeme tarihini çıkarın ve aradaki gün ya da ay sayısını faizle çarpınve runningsum( birikmeli toplam) yapın gibi.. yani önce alanları oluşturalım.. Gördüğüm kadarıyla "datepart", "iif" ve "dsum" fonksiyonları yeterli olacak gibi.. Tabii bugünlerde biraz zor anlıyorum ayrı mesele...

 

[assenucler]

Sağolasın

Sn. beab05 merhaba;

Sizin bu sıcak ve ilgi dolu yaklaşımınız insanı oldukça heyecanladırıyor. Evet, adım adım giderek sorunumu çözmek en iyi yol dostum.

1- Önce, Ödeme tarihinden BorçTarihini çıkaralım, çıkan gün sayısı ile kalan 0'dan büyükse buna göre bulduğumuz gün yada ay sayısını faiz oranı ile birikmeli kalan toplamı ile çarpalım.

2- ÖdemeTarihi boşsa ve kalan 0'dan büyükse Bugün() - BorçTarihi farkını alarak günü yada ayı bulalım, faiz oranı ve birikmeli kalan toplamı ile çarpalım.

Yardımınız ve katkılarınız için tekrar teşekkürler.

 

[beab05]

Merhaba;
Ben bu arada ödeyeceği ve ödeneni birikmeli yapmıştım bunu da kontrol eder misiniz? Yeni bir sorgu yapın ya da mevcut sorguyu sql de açıp alttaki kodu yapştırın..

SELECT [&#214;deme Hareketleri].&#304;&#351;lemNo, Oturanlar.B&#246;l&#252;mNo, Oturanlar.adsoyad, [&#214;deme Hareketleri].sira, [&#214;deme Hareketleri].Bor&#231;Tarih, [&#214;deme Hareketleri].&#214;deyece&#287;i, [&#214;deme Hareketleri].&#214;demeTarih, [&#214;deme Hareketleri].odenen, [&#214;deyece&#287;i]-[odenen] AS kalan, DSum("&#214;deyece&#287;i","[&#214;deme Hareketleri]","&#304;&#351;lemNo <= " & [&#304;&#351;lemNo] & "") AS brk&#246;deyece&#287;i, DSum("Odenen","[&#214;deme Hareketleri]","&#304;&#351;lemNo <= " & [&#304;&#351;lemNo] & "") AS brk&#246;denen
FROM Oturanlar INNER JOIN [&#214;deme Hareketleri] ON Oturanlar.sirano = [&#214;deme Hareketleri].B&#246;l&#252;mNo
GROUP BY [&#214;deme Hareketleri].&#304;&#351;lemNo, Oturanlar.B&#246;l&#252;mNo, Oturanlar.adsoyad, [&#214;deme Hareketleri].sira, [&#214;deme Hareketleri].Bor&#231;Tarih, [&#214;deme Hareketleri].&#214;deyece&#287;i, [&#214;deme Hareketleri].&#214;demeTarih, [&#214;deme Hareketleri].odenen, [&#214;deyece&#287;i]-[odenen]
ORDER BY [&#214;deme Hareketleri].&#304;&#351;lemNo, Oturanlar.B&#246;l&#252;mNo, [&#214;deme Hareketleri].sira, [&#214;deme Hareketleri].Bor&#231;Tarih;

 

[beab05]

Şu an iif lere el atmadan sadece gün sayılarını ve faizlerle çarpılmasını yaptım siz kontrol edin..

SELECT [&#214;deme Hareketleri].&#304;&#351;lemNo, Oturanlar.B&#246;l&#252;mNo, Oturanlar.adsoyad, [&#214;deme Hareketleri].sira, [&#214;deme Hareketleri].Bor&#231;Tarih, [&#214;deme Hareketleri].&#214;deyece&#287;i, [&#214;deme Hareketleri].&#214;demeTarih, [&#214;deme Hareketleri].odenen, DSum("&#214;deyece&#287;i","[&#214;deme Hareketleri]","&#304;&#351;lemNo <= " & [&#304;&#351;lemNo] & "") AS brk&#246;deyece&#287;i, DSum("Odenen","[&#214;deme Hareketleri]","&#304;&#351;lemNo <= " & [&#304;&#351;lemNo] & "") AS brk&#246;denen, [brk&#246;deyece&#287;i]-[brk&#246;denen] AS kalan, nz((DatePart("d",[&#214;demeTarih]))-(DatePart("d",[Bor&#231;Tarih])),0) AS g&#252;nsay, 0.0033 AS faiz, [g&#252;nsay]*[faiz]*[kalan] AS gunfaiz, nz((DatePart("d",Date()))-(DatePart("d",[Bor&#231;Tarih])),0) AS bugunsay, [bugunsay]*[faiz]*[kalan] AS bugunfaiz
FROM Oturanlar INNER JOIN [&#214;deme Hareketleri] ON Oturanlar.sirano = [&#214;deme Hareketleri].B&#246;l&#252;mNo
GROUP BY [&#214;deme Hareketleri].&#304;&#351;lemNo, Oturanlar.B&#246;l&#252;mNo, Oturanlar.adsoyad, [&#214;deme Hareketleri].sira, [&#214;deme Hareketleri].Bor&#231;Tarih, [&#214;deme Hareketleri].&#214;deyece&#287;i, [&#214;deme Hareketleri].&#214;demeTarih, [&#214;deme Hareketleri].odenen, nz((DatePart("d",[&#214;demeTarih]))-(DatePart("d",[Bor&#231;Tarih])),0)
ORDER BY [&#214;deme Hareketleri].&#304;&#351;lemNo, Oturanlar.B&#246;l&#252;mNo, [&#214;deme Hareketleri].sira, [&#214;deme Hareketleri].Bor&#231;Tarih;

Daha sonra devam ederiz..

 

[assenucler]

Bir Sorun

Merhaba;
Ben bu arada ödeyeceği ve ödeneni birikmeli yapmıştım bunu da kontrol eder misiniz? Yeni bir sorgu yapın ya da mevcut sorguyu sql de açıp alttaki kodu yapştırın..

SELECT [Ödeme Hareketleri].İşlemNo, Oturanlar.BölümNo, Oturanlar.adsoyad, [Ödeme Hareketleri].sira, [Ödeme Hareketleri].BorçTarih, [Ödeme Hareketleri].Ödeyeceği, [Ödeme Hareketleri].ÖdemeTarih, [Ödeme Hareketleri].odenen, [Ödeyeceği]-[odenen] AS kalan, DSum("Ödeyeceği","[Ödeme Hareketleri]","İşlemNo <= " & [İşlemNo] & "") AS brködeyeceği, DSum("Odenen","[Ödeme Hareketleri]","İşlemNo <= " & [İşlemNo] & "") AS brködenen
FROM Oturanlar INNER JOIN [Ödeme Hareketleri] ON Oturanlar.sirano = [Ödeme Hareketleri].BölümNo
GROUP BY [Ödeme Hareketleri].İşlemNo, Oturanlar.BölümNo, Oturanlar.adsoyad, [Ödeme Hareketleri].sira, [Ödeme Hareketleri].BorçTarih, [Ödeme Hareketleri].Ödeyeceği, [Ödeme Hareketleri].ÖdemeTarih, [Ödeme Hareketleri].odenen, [Ödeyeceği]-[odenen]
ORDER BY [Ödeme Hareketleri].İşlemNo, Oturanlar.BölümNo, [Ödeme Hareketleri].sira, [Ödeme Hareketleri].BorçTarih;

Sn. beab05

Bu SQL kodunu sorguya yapıştırdım. Birikmeli toplam sütunları, apartmanda oturanları tek bir kişi kabul ederek, hesaplama yapıyor.

Benim isteğim, her daire (BölümNo) yada oturanlar (adsoyad) değiştiğinde, (0)'dan başlayarak toplama devam etmesidir.

Faiz hesabıyla ilgi SQL kodu inceliyorum. Düşüncelerimi sizinle daha sonra paylaşacağım.

Teşekkürler. Sevgi ve saygılar.

Not: Dosyayı yolluyorum.

 

[assenucler]

Gecikme Zammı hesabıyla ilgili düşüncelerim.

Sn. beab05;

İyi akşamlar. Gecikme zammı hesabıyla ilgili SQL kodlarını kopyalayıp yapıştırdım. Konuyla ilgili bazı tanımlara açıklık getirmem gerekiyor.

BorçTarih = Ödemenin yapılacağı en son gündür.
ÖdemeTarih = Ödemenin yapıldığı gündür.

gunsay alanındaki gün sayısı, hatalı gözüküyor. Burada üç durum söz konusu olabilir.

01- İlk durum; [ÖdemeTarih] boşsa ve [kalan] >0 ise gün hesabı bugünün tarihi ile [BorçTarihi] arasındaki fark olmaktadır, örnekte 0 çıkıyor.

02- İkinci durum; ÖdemeTarih > BorçTarih ve kalan > 0 ise, gün hesabı ÖdemeTarih - BorçTarih arasındaki fark olmaktadır.

03- Üçüncü durum; ÖdemeTarih <> BorçTarih eşit değilse -bazen erken ödeme nedeniyle ÖdemeTarih'i BorçTarih'ten küçük olabilir- ve kalan > 0 ise, gün hesabı BugünküTarih - BorçTarih arasındaki fark olmaktadır.

Benim aklıma gelen olasılıklar bunlar. Size zahmetim için bir kez daha teşekkürler. Sağolun varolun. Her şey gönlünüzce olsun, dostum.

Sevgi ve saygılar.

 

[beab05]

Merhaba;
Pek fazla vakit ay&#305;ramad&#305;m ama sizin 3 olas&#305;l&#305;&#287;&#305;n&#305;z&#305;n cevab&#305; da sorgu i&#231;inde yer alm&#305;yor mu? "gunsay" ve "bug&#252;nsay" alanlar&#305;na bak&#305;n&#305;z.. Burdan duruma g&#246;re ilgili alanlar tercih ettirilebilir.

 

[assenucler]

Dosyayı yolluyorum.

Merhaba;
Pek fazla vakit ayıramadım ama sizin 3 olasılığınızın cevabı da sorgu içinde yer almıyor mu? "gunsay" ve "bugünsay" alanlarına bakınız.. Burdan duruma göre ilgili alanlar tercih ettirilebilir.

Sn. beab05;

Sizin yazdığınız SQL kodu ile benim sizden yararlanarak hesapladığım faiz sorgusu ilişiktedir.

srg_faiz_selim adlı sorguda benim çözemediğim iki koşul var.

1- İlki, birikmeli toplam aldırırken apartmanda tüm oturanları sanki tek kişi gibi topluyor.
İstenen: her BölümNo (Daire Numarası) yada adsoyad (Dairede oturanlar) değiştiğinde, yeniden yani sıfırdan başlayarak birikmeli toplam almasını sağlayacak kodun yazılmasıdır.

2- [ÖdemeTarih] alanındaki tarih, [BorçTarih] alanındaki tarihten küçük ise - burada BorçTarih vade sonudur. Erken ödeme halinde ÖdemeTarih doğal olarak küçük olmaktadır - ve kalan alanı sıfırdan büyükse, faiz hesabı - eksi yanı yanlış çıkmaktadır.
İstenen: Bu yanlışı düzeltecek kod ne olmalıdır.

Sitemizde herkesin yardımına koşan Sn. beab05 dostumuz şu an çok yoğun olduğunu ifade etmektedir. İçtenliğine inanıyorum.

Arkadaşlar lütfen bir el atalım, şu sorunu da sayenizde aşayım.

Katkı verecek tüm arkadaşlara önceden teşekkür eder, en içten sevgi ve saygılarımı sunarım.

 

[beab05]

Merhaba;
&#199;ok az vaktimde sadece ki&#351;iye &#246;zel toplam&#305; veriyorum..
&#214;nce bir module alttaki kodu yap&#305;&#351;t&#305;r&#305;n..

Option Compare Database
Option Explicit

Function fncRunSum(lngCatID As Long, lngUnits As Long) As Long
    'Variables that retain their values.
    Static lngID As Long
    Static lngAmt As Long

    If lngID <> lngCatID Then
        'If the current ID does not match the last ID, then (re)initialize.
        lngID = lngCatID
        lngAmt = lngUnits
    Else
        'If the current ID matches the last, keep a running sum for the ID.
        lngAmt = lngAmt + lngUnits
    End If

    'Pass the running sum back to the query.
    fncRunSum = lngAmt
End Function

Sonra da SQL kodunu inceleyin..

SELECT Oturanlar.B&#246;l&#252;mNo, [&#214;deme Hareketleri].&#304;&#351;lemNo, Oturanlar.adsoyad, [&#214;deme Hareketleri].Bor&#231;Tarih, [&#214;deme Hareketleri].&#214;deyece&#287;i, [&#214;deme Hareketleri].&#214;demeTarih, [&#214;deme Hareketleri].odenen, [&#214;deyece&#287;i]-[odenen] AS kalan, DSum("&#214;deyece&#287;i","[&#214;deme Hareketleri]","&#304;&#351;lemNo <= " & [&#304;&#351;lemNo] & "") AS brk&#246;deyece&#287;i, DSum("Odenen","[&#214;deme Hareketleri]","&#304;&#351;lemNo <= " & [&#304;&#351;lemNo] & "") AS brk&#246;denen, [brk&#246;deyece&#287;i]-[brk&#246;denen] AS brkkalan, IIf(IsNull([&#214;deme Hareketleri]!&#214;demeTarih),(Date()-[&#214;deme Hareketleri]!Bor&#231;Tarih),([&#214;deme Hareketleri]!&#214;demeTarih-[&#214;deme Hareketleri]!Bor&#231;Tarih)) AS GF, 0.00333 AS FZO, [kalan]*[GF]*[FZO] AS GZ, fncRunSum([oturanlar].[B&#246;l&#252;mNo],[&#214;deyece&#287;i]) AS yenibirikmeli
FROM Oturanlar INNER JOIN [&#214;deme Hareketleri] ON Oturanlar.sirano = [&#214;deme Hareketleri].B&#246;l&#252;mNo
WHERE ((([&#214;deyece&#287;i]-[odenen])>0))
ORDER BY Oturanlar.B&#246;l&#252;mNo, [&#214;deme Hareketleri].&#304;&#351;lemNo, [&#214;deme Hareketleri].Bor&#231;Tarih;

Sadece yeni birikmeli alana bak&#305;n istedi&#287;iniz gibidir .. Di&#287;er alanlar&#305; ayn&#305; &#351;ekilde d&#252;zenlersiniz..

 

[beab05]

Yukar&#305;daki mod&#252;l, birikmeli toplam, y&#252;r&#252;yen bakiye ya da orjinal ismiyle RunningSum uygulamalar&#305;nda zorluk ya&#351;ayanlar i&#231;in birebirdir. &#220;stelik modulde olmas&#305;, uygulama i&#231;inde global bir &#351;ekilde kullanman&#305;z&#305; da sa&#287;lar.

toplam:fncRunSum([Kriter];[Toplanacak Alan])

&#350;eklinde kullan&#305;m&#305; vard&#305;r..

 

[assenucler]

Faiz hesabındaki sorun

Sn. beab05;
srg_faiz_selim adlı sorguda benim çözemediğim tek koşul var.

1- [ÖdemeTarih] alanındaki tarih, [BorçTarih] alanındaki tarihten küçük ise - burada BorçTarih vade sonudur. Erken ödeme halinde ÖdemeTarih doğal olarak küçük olmaktadır - ve kalan alanı sıfırdan büyükse, faiz hesabı - eksi yanı yanlış çıkmaktadır.
İstenen: Bu yanlışı düzeltecek kod ne olmalıdır.

Sn. beab05,

İyi akşamlar. Verdiğiniz emek için sağolasın. Eksi çıkan faiz tutarını nasıl düzeltebilirim. Acaba bu konuda da yardımcı olabilir misin?

 

[beab05]

Merhaba;

(-) sonu&#231;lar&#305; "iif" le "-1" ile &#231;arpt&#305;rabilirsiniz. Sonu&#231; (+) olur ya da yine "iif" le istedi&#287;iniz &#351;artlar&#305; elde edebilirsiniz.. Sorun sadece (-) leri d&#252;zeltmekse tabii...

 

[assenucler]

Acaba koşul kodunu yazabilir misiniz?

Merhaba;

(-) sonuçları "iif" le "-1" ile çarptırabilirsiniz. Sonuç (+) olur ya da yine "iif" le istediğiniz şartları elde edebilirsiniz.. Sorun sadece (-) leri düzeltmekse tabii...

Sn. beab05

Gününüz aydın, neşeniz ve kazancınız yerinde olsun.

Konu uzadığı için sizi sıkmış olabilirim. Lütfen kusuruma bakmayın.

Sonucun (+) olması neyi değiştirir ki hocam, vadeden (BorçTarih) önce erken (ÖdemeTarih) ödeme yapan kişiden faiz almış olacağım.

IIf ile [BorçTarih] > [ÖdemeTarih] ve [kalan]>0 koşulunu, mevcut koda ekleyerek doğru sonucu, size yazmadan önce 5-6 saat uğraşmama karşın, bir türlü bulamadım.

Sizin gibi konusunda uzman hocalarımız için daha kolay olan bu kodu acaba yukarıda 12 nolu yanıt ekindeki dosyaya yazabilir misiniz?

İlginizi rica edeceğim.

Teşekkür. Sevgi ve saygılar.

 

[beab05]

Siz de kusura bakmay&#305;n, benim en b&#252;y&#252;k sorunum konuyu anlamak i&#231;in u&#287;ra&#351; vermemem o y&#252;zden b&#246;yle ad&#305;m ad&#305;m gidiyoruz. &#304;stedi&#287;inizi do&#287;ru anlad&#305;ysam ki yine &#351;&#252;pheliyim sorguya yeni bir alan a&#231;&#305;p kontrol eder misiniz?

deneyelim: IIf([borçtarih]>[ödemetarih] And [kalan]>0;0;[kalan]*[gf]*[fzo])

 

[assenucler]

Rica.

Siz de kusura bakmayın, benim en büyük sorunum konuyu anlamak için uğraş vermemem o yüzden böyle adım adım gidiyoruz. İstediğinizi doğru anladıysam ki yine şüpheliyim sorguya yeni bir alan açıp kontrol eder misiniz?

deneyelim: IIf([borçtarih]>[ödemetarih] And [kalan]>0;0;[kalan]*[gf]*[fzo])

Sn. beab05;

Aşağıdaki koda, rica etsem yukarıdaki kodunuzu nasıl ekleyebilirim?

GünFarkı: IIf(IsNull([Ödeme Hareketleri]!ÖdemeTarih),(Date()-[Ödeme Hareketleri]!BorçTarih),([Ödeme Hareketleri]!ÖdemeTarih-[Ödeme Hareketleri]!BorçTarih))

Teşekkürler.

 

[beab05]

Anlayamad&#305;m? &#350;artlar nedir?