yaş hesabı

[sender]

Merhaba Arkadaşlar.
İki tarih arası fark hesaplarını arttırdım ama textboxlarla bi hesaplama yok sayılır yada ben bulamadım. Konu şu: Textbox1 de şimdik tarih, textbox 2 de doğum tarihi ve textbox üçtede bu ikisinin farkı yıl olarak gösterilsin.

örnek:

14/02/2006 - 17/01/1985 = 21

yada daha bebekse 9 ay gibi

veya
15 gün gibi

kişi yıl olarak yaşını doldurmuşsa sadece yıl doldurmamışsa sadece ay onuda doldurmamışsa sadece gün olarak textboxta gözükmesini istiyorum.
Konu hakkında yardımcı olursanız sevinirim. Saygılarımla kolay gelsin.

 

[Suskun]

Aşağıdaki fonksiyonu deneyin..


Function Ymd(Tarih1 As Date, Tarih2 As Date, Optional Tur As Integer) As String
'Tur Seçenekleri
'1 Tarihler Arasındaki Tam Gün
'2 Tarihler Arasındaki Tam Ay
'3 Tarihler Arasındaki Tam Yıl
'4 İki Tarih Arasındaki artık Ay
'5 Toplam gün - ( yıl * Gün) = Yıldan sonra kalan günler
'6 İki Tarih Arasındaki artık Gün
'Boş Kaldığında "xx Yıl xx Ay xx Gün" formatında yazar

Dim y, A, G As Integer
Dim Temp1, Temp2 As Date
Application.Volatile
Temp1 = DateSerial(Year(Tarih2), Month(Tarih1), Day(Tarih1))
Temp2 = DateSerial(Year(Tarih2), 0, 0) - DateSerial(Year(Tarih1), 0, 0) 'Tam Yıldaki Gün sayısı
y = Year(Tarih2) - Year(Tarih1) + (Temp1 > Tarih2)
A = Month(Tarih2) - Month(Tarih1) - (12 * (Temp1 > Tarih2))
G = Day(Tarih2) - Day(Tarih1)
If G < 0 Then
A = A - 1
G = Day(DateSerial(Year(Tarih2), Month(Tarih2), 0)) + G
End If

If Tur = 0 Then Tur = 7
Ymd = Choose(Tur, Tarih2 - Tarih1, _
A + (y * 12), _
y, _
A, _
(Tarih2 - Tarih1) - Temp2, _
G, _
y & " Yıl " & A & " Ay " & G & " Gün")

End Function

=YMD(a1;b1;1) tarihler aeasında tam günü,
=YMD(a1;b1;3) Tarihler arasında tam yılı verir
(a1, b1 hücreleri fonksiyon için sembolik seçilmiştir her hangi bir hücre yada değer olabilir)

 

[sender]

merhaba cevabınız için teşekkürler. ama bu kodlar sanki karmakarışık ve sanki kod kirliliği varmış gibi. Bo kodları çözemedim

 

[Suskun]

Sayın sender,
Oynamayı bilmeyen gelin yerim dar,yakam dar dermiş. Sizinkide o hesap.
Bir de aşağıdaki örneği inceleyin.

 

[kadir17]

arkadaşlar 01.02.1959 doğumluyum 56 yaşına girmem için yıl ay gün nekadar var bunun formülünü istiyorum olanınız varmı