/ Snippet Library - View Code

Snippet details

ID: 200

Viewed: 1382

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

Calculate age based on date of birth

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight Allnone
Code
Highlight All'Convert text to Date Dim Birth as Date Birth = DateValue(txtDOB) 'Calculate age Dim Age as Integer Age = Int(DateDiff("D", Birth, Now) / 365.25)

No Reviews to show