AccessTr.neT
İki Tarih Arası Günü Ondalıklı Yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İki Tarih Arası Günü Ondalıklı Yazdırma (/konu-iki-tarih-arasi-gunu-ondalikli-yazdirma.html)



İki Tarih Arası Günü Ondalıklı Yazdırma - abahceci - 13/04/2014

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...


Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - ozanakkaya - 14/04/2014

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


Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - abahceci - 14/04/2014

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

+rep+rep+rep

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...


Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - abahceci - 14/04/2014

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


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...


Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - ozanakkaya - 15/04/2014

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.


Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - abahceci - 19/04/2014

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