Yazılım Geliştirme Uzmanı & E-Ticaret Danışmanı
Classic Asp , Excel , Ms Project, Excel VBA , E-Ticaret , Mobil , Desktop
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com

Kategoriler

Sitelerim

Önerdiklerim

Doğum Tarihinden Yaş Hesaplama

Doğum Tarihinden Yaş Hesaplama 6.8.2011

' 000000000000000000000000000000000000000000000000000000000000000000000000000
' Visual Dil Grubu için Verilen Doğum Tarihinden Kişinin Yaşının Hesaplanması
' Fonksiyon Kullanım için tarihe yol vermeniz gerekir.
' Örneğin Response.Write kacyasinda("01.01.2000") şeklinde kullanılır.
' 000000000000000000000000000000000000000000000000000000000000000000000000000

Public Function KacYasinda(DogumGunu)
    Dim DogumTarihi As Date
    DogumTarihi = DateValue(DogumGunu)
    
    `Yasi hesapla
    Dim Yas As Integer
    Yas = Int(DateDiff("D", DogumTarihi, Now) / 365.25)
    
    KacYasinda = Yas
End Function


Yazının Devamı

Tags :