+- 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ığı: Yaş Hesaplama (/konu-yas-hesaplama.html)
Yaş Hesaplama - evren89 - 30/04/2024
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
RE: Yaş Hesaplama - atoykan - 30/04/2024
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 SubRE: Yaş Hesaplama - atoykan - 30/04/2024
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.
RE: Yaş Hesaplama - evren89 - 30/04/2024
İ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.