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

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.

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.

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