AccessTr.neT

Sayın ozanakkaya hocam, öncelikle ellerinize sağlık, İki Tarih Arası Gün Ay Yıl Hesaplama gerçekten çok güzel bir uygulama.
Ancak bir sorum olacak: iki tarih arasındaki farkı ay cinsinden hesaplattığımızda sonucu kesirli sonuç olarak verebilir miyiz? İstatistiksel çalışma açısından buna ihtiyacım olacak.
Örnek olarak; 20.01.2014 ile 19.03.2014 tarihleri arasında 58 gün var, ama sonucu ay olarak istediğim zaman sadece 1 ay olarak gösteriyor. İkinci tarihi 20.03.2014 yaptığımda da 2 ay olarak gösteriyor.
Ben ne yapmalıyım ki, 58 günlük farkı 1 ay olarak değil de örneğin 1,95 ay olarak gösterebileyim?
Yardımınız için şimdiden çok teşekkür ederim...

Örnek uygulamadaki form ve modülü düzenledim,

Ozanakkaya hocam, gerçekten çok teşekkür ederim. Ellerinize sağlık.



Bu arada bir şey daha sormak istiyorum:
2 ayrı formda bu modülden faydalanmam mümkün mü?
Yani bir formda kaydetmiş olduğum kişinin yaşını gün ay yıl cinsinden hesaplamasını, başka formdaysa istatistiksel çalışma için bana gerekli olan 2 tarih arasındaki farkı ay cinsinden kesirli olarak vermesini sağlayabilir miyim?

Tekrar çok teşekkür ederim...

Yaptığım ne derece doğru bilmiyorum, ama sanırım istediğimi yapabildim

Sub AyGunHesapla()

Dim Dizi As Variant



Dizi = Split(Metin24, " ")



Me.Liste1.RowSource = ""

For say = LBound(Dizi) To UBound(Dizi)

Me.Liste1.AddItem Dizi(say)

Me.PFS = Me.Liste1.ItemData(1) + (Me.Liste1.ItemData(2) / 30)





a = Me.Liste1.ItemData(0)

b = Me.Liste1.ItemData(1)

c = Me.Liste1.ItemData(2)



Me.Metin1 = a & " yıl " & b & " ay " & c & " gün"

Sayın ozanakkaya, tekrar teşekkür ederim...

Bence yazdığınız kodda anormal bir durum yok. Ya bunu yapacaktınız, yada modülün eski halini fonksiyon adını değiştirerek kullanacaktınız. Sizin yaptığınız şekliyle çalışmasında problem yoksa bu şekilde kalabilir. Bu arada benzeri sorunu yaşayanların daha çabuk ulaşabilmesi için Access Örnekleri bölümündeki ilgili mesajları yeni konu olarak ekledim.
İyi çalışmalar.

Sayın ozanakkaya hocam, mesajınızı yeni gördüm.
Yardımınız için tekrar çok teşekkür ederim...