Advanced Search

Return to Snippet

Revision: 11951
at February 25, 2009 06:26 by Joshnolan118
Initial Code 
Public Function Age(ByVal DoB As Date) As Byte
    Dim Birthday As Date
    Birthday = DateSerial(Year(Now()), Month(DoB), Day(DoB))
    Age = Year(Now()) - Year(DoB)
    If Birthday > Now() Then Age = Age - 1
End Function
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
vb6 - Age - Find Age from DateOfBirth

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic