İki Tarih Arası Yıl Ay Gün Hesabı Yapma

[ahmedummu]

Merhaba arkadaşlar.

Kişinin işe başlama tarihinden günün (Bugün) tarihine kadar olan süreyi,

YIL, AY, GÜN olarak bulmak istiyorum. Örnek dosyada Listbox ta kişinin ismini seçtiğimizde textbox'a seçilen kişinin işe başlama tarihi geliyor. Kişinin işe başlama tarihi ile günün tarihi arasındaki yıl, ay ve gün hesabını yapıp Label2'ye yazacak. Yardımcı olursanız sevinirim.

 

[xydoca]

Merhaba,

Örnek dosyaya şu kodları ekledim;

Sub tarih_farki()
    Dim Tarih1 As Date, Tarih2 As Date
 
    Tarih1 = TextBox1.Value
    Tarih2 = Now
 
    Yıl = DateDiff("yyyy", Tarih1, Tarih2)
    Ay = DateDiff("m", Tarih1, Tarih2) + (Day(Tarih1) > Day(Tarih2))
 
    Yıl = Yıl + ((Ay - Yıl * 12) < 0)
    Ay = Ay Mod 12
 
    Gün = DateDiff("d", Tarih1, Tarih2) - DateDiff("d", Tarih1, _
    DateAdd("yyyy", Yıl, DateAdd("m", Ay, Tarih1)))
    
    Label2 = "YIL :" & Yıl & "   AY :" & Ay & "   GÜN :" & Gün
End Sub
Private Sub TextBox1_Change()
'On Error GoTo hata
Call tarih_farki
End Sub

Ayrıntılı bilgi için şu konuya göz atabilirsiniz;
http://www.excel.web.tr/f48/etar-hl-ve-datediff-komutu-hakkynda-t92867.html

 

[ahmedummu]

Sayın xydoca çok teşekkür ederim.