Problems with the age function

[Marren02]

Hi, Whenever I try and find an age function I find that it doesn't work the way I want it to... Here's what I want to do: I want the age function to first ask the user a question ("What is your date of birth?") However, no matter how I formatted it the function would not work I have tried to use "as string" and DateDiff() but nothing seems to work... If anyone can come up with a method of doing this I'd appreciate it...
kind regards,
Marren02

[Killer42]

Can you show us what sort of code you have tried? Your description was pretty vague. Are you having trouble with getting the date from the user, or in calculating the age, or what?

Oh, and what version of VB are you using?

[Marren02]

Can you show us what sort of code you have tried? Your description was pretty vague. Are you having trouble with getting the date from the user, or in calculating the age, or what?

Oh, and what version of VB are you using?

The version I am using is VB 6.0
I have tried examples from the web which suprisingly don't work like:

Public Function Age(ByVal Birthdate As System.DateTime) As Long
Try
Dim CurrentDate As System.DateTime = System.DateTime.Today
Select Case Month(Birthdate)
    Case Is < Month(System.DateTime.Today)
        Age = DateDiff("YYYY", Birthdate, Now())
    Case Is = Month(CurrentDate)
         Select Case Day(Birthdate)
             Case Is < Day(CurrentDate)
                Age = DateDiff("YYYY", Birthdate, Now())
             Case Is = Day(CurrentDate)
                Age = DateDiff("YYYY", Birthdate, Now())
             Case Is > Day(CurrentDate)
                  Age = DateDiff("YYYY", Birthdate, Now()) - 1
         End Select
    Case Is > Month(CurrentDate)
        Age = DateDiff("YYYY", Birthdate, Now()) - 1
    Case Else
        Age = 0
End Select
Catch ex As System.Exception
    'Error handling code does here
End Try
End Function

which is "apparently " suppost to be code for VB 6.0 however the bits of code appear in red so i think this is someone who just likes to mess people around by saying its this version when it aint.

Basically, I just simply want to know how old the user is in years by his/her birthdate or perhaps a more complicated format with the months, days, hours, etc. In General, it's just the whole code which doesn't work I've tried editing it but with my lack of knowledge in this program it just shot angry messages at me like as if the program hates me.

I hope you manage to find a way to get round this, I have been trying to work out what is wrong but I can't seem to add in:

Datenum1 As string

Datenum1= LineIn("Please enter your date of birth in number form only")

First time I tried doing this it did not work, so I tried if commands and other functions I could find but it persisted on coming up with messages that roughly translate as "Command not recognised" "Format incorrect" "End IF,etc. needed"
"Need more ketchup...with my chips...user idiotic...can't come up with proper function..."

Eventually I gave up so now the problem is passed to you perhaps i might learn from the code which you produce if you produce any... not saying that you are not capable of doing this but it seems impossible to find a website with simple straight forward code that works... I hope these forums differ from that.
Kind regards,
marren02

[debasisdas]

The version I am using is VB 6.0
I have tried examples from the web which suprisingly don't work like:

Before copying and pasting the code you need to understand that first.

The code you are using is not VB 6.0 code ,that is .NET code.

[Marren02]

Then why on the website I used does it say it's Visual Basic code?
http://www.codewidgets.com/product.aspx?key=24

Look under widget info it says clearly in black and white under Microsoft Access 2000/XP Visual Basic 6.0

[hariharanmca]

then why on the website I used does it say its visual basic code?

Visual basic is common name to all versions of VB.
Just try this code.

 
Public Function GetAge(ByVal Birthdate As Date) As Long
On Error GoTo errExc
Dim CurrentDate As Date ' System.DateTime = System.DateTime.Today
CurrentDate = Format(Now, "dd/MM/yyyy")
Select Case Month(Birthdate)
    Case Is < Month(CurrentDate)
        Age = DateDiff("YYYY", Birthdate, Now)
    Case Is = Month(CurrentDate)
         Select Case Day(Birthdate)
             Case Is < Day(CurrentDate)
                Age = DateDiff("YYYY", Birthdate, Now)
             Case Is = Day(CurrentDate)
                Age = DateDiff("YYYY", Birthdate, Now)
             Case Is > Day(CurrentDate)
                  Age = DateDiff("YYYY", Birthdate, Now) - 1
         End Select
    Case Is > Month(CurrentDate)
        Age = DateDiff("YYYY", Birthdate, Now) - 1
    Case Else
        Age = 0
End Select
Exit Function
errExc:
    'Error handling code does here
End Function
 
 
 

which is converted to VB 6.0

[Marren02]

 
Public Function GetAge(ByVal Birthdate As Date) As Long
On Error GoTo errExc
Dim CurrentDate As Date ' System.DateTime = System.DateTime.Today
CurrentDate = Format(Now, "dd/MM/yyyy")
Select Case Month(Birthdate)
    Case Is < Month(CurrentDate)
        Age = DateDiff("YYYY", Birthdate, Now)
    Case Is = Month(CurrentDate)
         Select Case Day(Birthdate)
             Case Is < Day(CurrentDate)
                Age = DateDiff("YYYY", Birthdate, Now)
             Case Is = Day(CurrentDate)
                Age = DateDiff("YYYY", Birthdate, Now)
             Case Is > Day(CurrentDate)
                  Age = DateDiff("YYYY", Birthdate, Now) - 1
         End Select
    Case Is > Month(CurrentDate)
        Age = DateDiff("YYYY", Birthdate, Now) - 1
    Case Else
        Age = 0
End Select
Exit Function
errExc:
    'Error handling code does here
End Function
 
 
 

The code is accepted in my visual basic but when I try to run the script nothing is displayed... there must be something else you need to do with the code for it to run properly

[hariharanmca]

Can you explain how you are calling this method?

[debasisdas]

then why on the website I used does it say its visual basic code?

Ask that at the site from where you have copied the code.

[Marren02]

h person
----------------------------
what do you mean?

Other person
-----------------------------------
Don't think theres a way to contact this website

--------------------------------------------------------------------
I'm trying to get a code whereby the user simply enters his or her date of birth and basically it will display his or her age and may also have other things added like months, days, etc.

I'd appreciate if anyone can give me a code that works as I can't find any site with a code that will allow me to work out age with vitual basic

Kind regards,
marren02