Breadcrumbs

[Shim]

Hello guys ,


I am working on php nowadays so i thought i would share this little snippet with you all . So here goes

this calculates the age when inputting the birthdate.

Code: Select all

 function getAge( $p_
strDate ) {
 list($d,$m,$Y) = explode
("-",$p_strDate);
 return( date("md") < $m.$
d ? date("Y")-$Y-1 : date("Y")
-$Y );
 }

Day-Month-Year format. You can
change it by changing the order
of "list($d,$m,$Y)".
An example on using it:

Code: Select all

 <?php
 echo getAge("1-1-2000");

 function getAge( $p_
strDate ) {
 list($d,$m,$Y) = explode
("-",$p_strDate);
 return( date("md") < $m.$
d ? date("Y")-$Y-1 : date("Y")
-$Y );
 }

done !

Hope this helped you

thank you

edit - subject changed

[Shim]

is this post helped you ? Why i am asking because if you guys interested i can make more tutorials . So what ?

[Dummy1912]

nice going
never new this thx.

[Usman55]

Something like this in VB?

[comathi]

How about this?

Code: Select all

Dim year As Integer = Today.Year - 1997
        Dim month As Integer = Today.Month - 9
        Dim day As Integer = Today.Day - 10

        If month < 1 Then
            year -= 1
            month += 12
        End If

        If day < 1 And month = 1 Or month = 3 Or month = 5 Or month = 7 Or month = 8 Or month = 10 Or month = 12 Then
            month -= 1
            day += 31
        ElseIf day < 1 And month = 4 Or month = 6 Or month = 9 Or month = 11 Then
            month -= 1
            day += 30
        ElseIf day < 1 And month = 2 Then
            month -= 1
            day += 28
        End If

        MsgBox("You are " & year & " years, " & month & " months, and " & day & " days old.")

[MrAksel]

Or:

Code: Select all

        Dim birthdate As DateTime = New Date(1998, 3, 10)
        Dim totDays As Integer = (DateTime.Now - birthdate).TotalDays

        Dim years As Integer = totDays \ 365
        Dim days As Integer = totDays Mod 365
        Dim months As Integer = days \ 30
        days = days Mod 30

        MessageBox.Show(years.ToString() + " years, " + months.ToString() + " months, " + days.ToString() + " days old.")

The simplest would be

Code: Select all

MessageBox.Show(((DateTime.Now - Birthdate).Days / 365.0).ToString() + " years old.")

[comathi]

But that doesn't take into consideration months that have 31 or 28 days, does it?

[MrAksel]

Nope, just for 30 day months, which would be somewhat the average of the months
Edit:

Code: Select all

Dim Age As DateTime = New DateTime((DateTime.Now - Birthday).Ticks)
MessageBox.Show(Age.Year.ToString() + " years, " + Age.Month.ToString() + " months, " + Age.Day.ToString() + " days.")

[comathi]

Oh ok. Well the code i posted takes care of 30-day, 31-day and 28-day months

[MrAksel]

Edited Last post considers 31 & 28 days months
Edit: Nevermind, I realized its not working