edad.bas

  1. Function Edad(fecha_nacimiento As Variant) As Integer
  2. If IsNull(fecha_nacimiento) Then
  3. Edad = 0
  4. Else
  5. Dim años As Variant
  6. años = DateDiff("yyyy", fecha_nacimiento, Now)
  7. If Date < DateSerial(Year(Now), Month(fecha_nacimiento), Day(fecha_nacimiento)) Then
  8. años = años - 1
  9. End If
  10. Edad = CInt(años)
  11. End If
  12. End Function
  13.  

Proinf.net