Skip to main content

AccessTr.neT


Yaş Hesaplama

Yaş Hesaplama

Çözüldü #1
SELAMUN ALEYKUM

Ekte sunmuş olduğum örnekte tablo1 formu var Tarih2 adlı metin kutusunda ki tarihi tarih1 adlı metin kutusunda ki tarihten çıkarıp çıkan sonucu yıl, ay, gün olarak alttaki ilgili kutulara sonucunu vermesini istiyorum.

İyi geceler dilerim
.zip Yeni WinRAR ZIP arşivi.zip (Dosya Boyutu: 27,4 KB | İndirme Sayısı: 4)
Cevapla
#2
Yapmak istediğiniz şayet iki tarih arasındaki farkı x yıl / x ay / x gün şeklinde ifade etmek ise Tarih2 textboxının AfterUpdate olayına aşağıdaki kodu girerseniz istediğiniz sonucu verecektir.
Private Sub Tarih2_AfterUpdate()
Dim Dt1 As Date, Dt2 As Date, DtD As Long
Dt1 = Me.Tarih1.Value
Dt2 = Me.Tarih2.Value
DtD = DateDiff("d", Dt1, Dt2)

Me.Metin7 = Int(DtD / 365)
Me.Metin9 = Int((DtD - (Metin7.Value * 365)) / 30)
Me.Metin11 = DtD - (Metin7.Value * 365) - (Metin9.Value * 30)
End Sub
DateDiff tarih farkını hesapladığından Şubat'ın artık yıl durumlarını da dikkate alarak net hesaplama yapmanızı sağlar.
Cevapla
#3
Sorularınızı iletirken de lütfen ilgili alana konu açtığınızdan emin olun. Ne alakası varsa Site Kuralları ve Kullanımı sayfasında soru açıyorsunuz, ilgili alana taşıdım sorunuzu.
Cevapla
Çözüldü #4
İstediğim sonucu almış bulunmaktayım. İlginize teşekkür ederim.

(30/04/2024, 13:31)atoykan yazdı: Sorularınızı iletirken de lütfen ilgili alana konu açtığınızdan emin olun. Ne alakası varsa Site Kuralları ve Kullanımı sayfasında soru açıyorsunuz, ilgili alana taşıdım sorunuzu.

Kusura bakmayın, Dikkate edeceğim.
Son Düzenleme: 30/04/2024, 13:57, Düzenleyen: evren89.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task