Skip to main content

AccessTr.neT


İki Tarih Arası Günü Ondalıklı Yazdırma

İki Tarih Arası Günü Ondalıklı Yazdırma

Çözüldü #1
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...
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Örnek uygulamadaki form ve modülü düzenledim,
.rar ikitarih arasi_sld.rar (Dosya Boyutu: 27,32 KB | İndirme Sayısı: 15)
Cevapla
Çözüldü #3
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...
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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...
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
Sayın ozanakkaya hocam, mesajınızı yeni gördüm.
Yardımınız için tekrar çok teşekkür ederim...
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task