yaş hesaplama

[TENTEN71]

Yaş hesaplaması yapmak istiyorum. doğum tarihi-bugünkü günden toplam gün çıkıyor bunu 365 e bölüp bulabiliyorsun ama net olmuyor çünkü her zaman 365 gün olmuyor. bu konuda yardım rica ediyorum

 

[Ömer]

Merhaba,

Örnek dosyayı inceleyiniz. İstediğiniz bumu?

 

[muygun]

Slm.
A1 de doğum tarihi varsa;
ETARİHLİ(A1;BUGÜN();"y")&" Yıl, "&ETARİHLİ(A1;BUGÜN();"ym")&" Ay, "&ETARİHLİ(A1;BUGÜN();"md")&" Gün"
formülünü uygulayın.

 

[Zeki Gürsoy]

KTF ile de hesaplayabilirsiniz.

Function YAŞ(doğum As Date, Optional şimdi As Date) As Byte
Dim yil As Integer, ay As Integer, gun As Integer
 
şimdi = IIf(şimdi = Empty, Date, şimdi)
 
yil = Year(şimdi) - Year(doğum)
ay = Month(şimdi) - Month(doğum)
gun = Day(şimdi) - Day(doğum)
 
Select Case yil
    Case Is <= 0: YA&#350; = 0
    Case Else: YA&#350; = IIf(ay > 0 Or (ay = 0 And gun > 0), yil, yil - 1)
End Select
 
End Function