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.