Calculating an age using VBScript

[mmcgon]

Anyone have a slick way to calculate a person's age using VBScript given their birth date and today's date?

Using DateDiff just subtracts the year value, so if I were born on 12/31/02 DateDiff says I'm 1 (2003-2002), and on 1/1/03 it says I'm 0 (2003-2003).

 

[ralphtrent]

Doing this gives me my right age
DateDiff("yyyy","9/27/1980",Date)

 

[mmcgon]

My system gives me 23 with that code. But you should'nt be 23 until later this month on 9/27.

 

[bernlaw]

What if you selected the number of days between the two, divided by 365 and took the integer of that number.

int(datediff("d", "9/27/1980", date) / 365)

This will give you 22.

The only question I'm wondering about is leap year and how that would affect this.

Try this and see if it will work for what you are doing.

Bernie

 

[craigey]

You could try using something like the following. It's a snippet of code I added to a free forum that I downloaded.

strDOB = rsBirthDayMod("DOB")
   Age = DateDiff("yyyy", strDOB, Now)
   If Date < DateSerial(Year(Now), Month(strDOB), Day(strDOB)) Then
      Age = Age - 1
   End If
   Age = CInt(Age)
Response.Write(&quot;(&quot; & Age & &quot;)&quot;)
rsBirthDayMod.MoveNext
If NOT rsBirthDayMod.EOF Then Response.Write(&quot;, &quot;)
Loop
End If

 

[clarkin]

check out this thread: thread183-610239
its how to do this in SQL-Server.

Craigey's solution seems decent if you just want a whole number.

Posting code? Wrap it with code tags: [ignore]

[/ignore][code]CodeHere

[ignore][/code][/ignore].

 

[onpnt]

http://rentacoder.com/vb/scripts/ShowCode.asp?txtCodeId=8262&lngWId=4

_____________________________________________________________________
_{Where have all my friends gone to????}

http://www.onpntwebdesigns.com