AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Yaş Hesaplama

30/04/2024, 00:16

evren89

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
30/04/2024, 12:18

atoykan

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.
30/04/2024, 13:31

atoykan

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.
30/04/2024, 13:55

evren89

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