home *** CD-ROM | disk | FTP | other *** search
/ Troubleshooting Netware Systems / CSTRIAL0196.BIN / attach / pcmag / v14n08 / age.txt next >
Text File  |  1994-12-28  |  1KB  |  26 lines
  1. '*********************************************************************
  2. ' FUNCTION Age( varStartDate, varEndDate)                   Access 2.0
  3. ' Returns Age in years
  4. '*********************************************************************
  5. Function Age( varStartDate As Variant, varEndDate as Variant )
  6. Dim varYrs As Variant
  7. varYrs = DateDiff("yyyy", varStartDate, varEndDate)
  8. If varEndDate < DateSerial(Year(varEndDate), Month(varStartDate), Day(varStartDate)) Then
  9.    varYrs = varYrs - 1
  10. End If
  11. Age = varYrs
  12. End Function
  13.  
  14. '*********************************************************************
  15. ' FUNCTION AgeNow( varDateOfBirth )                        Access 2.0
  16. ' Returns current age in years based on todays date
  17. '*********************************************************************
  18. Function AgeNow( varDateOfBirth As Variant )
  19. Dim varYrs As Variant
  20. varYrs = DateDiff("yyyy", varDateOfBirth, Now)
  21. If Date < DateSerial(Year(Now), Month(varDateOfBirth), Day(varDateOfBirth)) Then
  22.    varYrs = varYrs - 1
  23. End If
  24. AgeNow = varYrs
  25. End Function
  26.