[AccessD] Age calculation function

check out www.cpearson.com/excel/DateTimeVBA.htm


                                                                                                                                 
                    "Mark Whittinghill"                                                                                          
                    <mwhittinghill at symphonyinf        To:     accessd at databaseadvisors.com                                       
                    o.com>                            cc:                                                                        
                    Sent by:                          Subject:     [AccessD] Age calculation function                            
                    accessd-bounces at databasead                                                                                   
                    visors.com                                                                                                   
                                                                                                                                 
                                                                                                                                 
                    07/31/2003 02:52 PM                                                                                          
                    Please respond to "Access                                                                                    
                    Developers discussion and                                                                                    
                    problem solving"                                                                                             
                                                                                                                                 
                                                                                                                                 




Hi all,

  I need an age calculation function to calculate current age from
birthday.
If the person's 30th birthday is on August 1, I want them to be 29 on
July31st.  DateDiff rounds up and makes them 30.  I made this function

Public Function CalculateAge(datBirth As Date) As Long

    Dim lngNumDays As Long
    lngNumDays = DateDiff("d", datBirth, Date)

    CalculateAge = Int(lngNumDays / 365.25)

End Function


It works, except when today's date is their birthday.  In my example, on
their birthday, the function returns 29.  The next day it works.  It works
for some years on the birthday and not others.  How can I make this
foolproof?

Mark Whittinghill
Symphony Information Services
612-333-1311
mwhittinghill at symphonyinfo.com


_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com