Android Question Calculating Age

[AHilberink]

Hi,

Is there a simple way to calculate an age?

Best regards,
André

 

[DonManfred]

    Dim Datestart As Long
    Datestart = DateTime.DateParse("12/19/1968")
    Dim p As Period
    p = DateUtils.PeriodBetween(Datestart,DateTime.Now)
    Log(p.Years&" Years, "&p.Months&" months, "&p.Days&" days")

45 Years, 8 months, 10 days

 

[DonManfred]

You can write it a bit shorter if you want...

Dim p As Period = DateUtils.PeriodBetween(DateTime.DateParse("12/19/1968"),DateTime.Now)
    Log(p.Years&" Years, "&p.Months&" months, "&p.Days&" days")

 

[AHilberink]

You can write it a bit shorter if you want...

Dim p As Period = DateUtils.PeriodBetween(DateTime.DateParse("12/19/1968"),DateTime.Now)
    Log(p.Years&" Years, "&p.Months&" months, "&p.Days&" days")

Thanks. This will work for me.

 

[DonManfred]

If you find a answer here in forum useful then please click on like. ;-)

 

[AHilberink]

If you find a answer here in forum useful then please click on like. ;-)

Done

 

[udg]

ATTN: to be "safe" on calculating women age the above formula should be changed to:

Dim p As Period = DateUtils.PeriodBetween(DateTime.DateParse("12/19/1968"),DateTime.Add(DateTime.Now,-10,0,0))

Sorry, I couldn't resist

 

[sirjo66]

 

[LucaMs]

ATTN: to be "safe" on calculating women age the above formula should be changed to:

Dim p As Period = DateUtils.PeriodBetween(DateTime.DateParse("12/19/1968"),DateTime.Add(DateTime.Now,-10,0,0))

Sorry, I couldn't resist

Not only women, I have always 5/10 years less, since I have over 40 years

 

[DonManfred]

At a age of 30 is stopped counting... I´m 30! 30b, 30c, 30d, [...] I´m at P now

 

[bledfort]

    Dim Datestart As Long
    Datestart = DateTime.DateParse("12/19/1968")
    Dim p As Period
    p = DateUtils.PeriodBetween(Datestart,DateTime.Now)
    Log(p.Years&" Years, "&p.Months&" months, "&p.Days&" days")

Hi, How can I make Datestart related to an entry from an EditText, something like this I mean:
Datestart = DateTime.DateParse(EditText1.text)

thanks in advance

 

[DonManfred]

Datestart = DateTime.DateParse(edittext1.text)

Maybe you need to set the correct Dateformat before

 

[bledfort]

Thanks DonManfred!