Visual Bascic Doğu Gününden Kişinin Yaşını Hesaplama

'Text'i Date data türüne çevir

Dim Birth as Date
Birth = DateValue(txtDOB)

'Yasi hesapla
Dim Age as Integer
Age = Int(DateDiff("D", Birth, Now) / 365.25)

Categories: Visual Basic