<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="Generator" CONTENT="MS Exchange Server version 6.0.6396.0">
<TITLE>RE: Yet another age calculator - 43 yrs 8 months</TITLE>
</HEAD>
<BODY>
<!-- Converted from text/rtf format -->
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">Try this</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">simple</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">one</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> folks</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">.</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> </SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">Actually calculates to the nearest month.</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"></FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> </SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">Gustav I</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">’</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">m not sure if it accounts for those people born on Feb 29</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><SUP></SUP><SUP><FONT SIZE=2 FACE="Arial">th</FONT></SUP></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">.</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><B><FONT SIZE=2 FACE="Arial">Public Function</FONT></B></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> CalculateAge(datBirth As Date) As Long</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">‘</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">Calculates a person</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">’</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">s age in years and months from their birthdate to today</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">’</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">s date.</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">‘</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">I</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">’</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">m using the # marks because in Australia we format the dates differently and it</FONT> <FONT SIZE=2 FACE="Arial">doesn</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">’</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">t seem</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">‘</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">to work</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">here</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">without them</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">–</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"></FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">‘</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">cause I</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">’</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">ve tried.</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">'Usage</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">for a birthdate of 1</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><SUP></SUP><SUP><FONT SIZE=2 FACE="Arial">st</FONT></SUP></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"></FONT> <FONT SIZE=2 FACE="Arial">Dec 1960</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">–</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> try</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"> <FONT SIZE=2 FACE="Arial">Debug.Print CalculateAge(#1/12/60#)</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> Dim lngNumDays As Long</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> Dim lngNumMonths As Long</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> Dim Months As Double</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> </FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> lngNumDays = DateDiff("d", Format(d</FONT><FONT SIZE=2 FACE="Arial">atBirth, "dd/mmm/yyyy"), Date)</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> lngNumMonths = DateDiff("m", Format(datBirth, "dd/mmm/yyyy"), Date)</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> CalculateAge = Int(lngNumMonths / 12)</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> Months = (lngNumMonths / 12) Mod 12</FONT></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"> Debug.Print CalculateAge; " yrs " & Months & " months"</FONT></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"><B><FONT SIZE=2 FACE="Arial">End Function</FONT></B></SPAN><SPAN LANG="en-au"><B></B></SPAN><SPAN LANG="en-au"><B></B></SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"></SPAN><A NAME=""><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">Cheers<BR>
</FONT><FONT SIZE=2 FACE="Arial">David ԿԬ<BR>
</FONT></SPAN></A><SPAN LANG="en-us"></SPAN><SPAN LANG="en-us"></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial">Brisbane Australia</FONT></SPAN><SPAN LANG="en-us"></SPAN><SPAN LANG="en-us"></SPAN><SPAN LANG="en-au"></SPAN><SPAN LANG="en-au"><FONT SIZE=2 FACE="Arial"></FONT></SPAN><SPAN LANG="en-us"></SPAN><SPAN LANG="en-us"></SPAN><SPAN LANG="en-au"> </SPAN></P>
<P ALIGN=LEFT><SPAN LANG="en-au"></SPAN></P>
</BODY>
</HTML>