Aşağıdaki fonksiyon kişinin bugün itibariyle kaç yaşında olduğunu verir.
kullanımı =yashesap([DOGUMTARIHI]) & " YAŞINDA " & [CINSIYET] & " " & [DURUMU]
yada

yashesap(dogumtarihi)

şeklinde kullanabiliesin abi.
Kolay Gelsin.

Option Compare Database

Public Function yashesapla(dogumtarih As Date) As Integer



If IsDate(dogumtarih) = True Then

    yashesapla = Int(DateDiff("d", dogumtarih, Date) / 365.25)

End If

End Function