'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)
Kaydol:
Kayıt Yorumları
(
Atom
)
0 yorum :
Yorum Gönder