All 1,1,1. What should they be?
Cetin


Difficult to answer.
It depends on what is a month.

But, it puts these issues on the carpet:

What I can make with the tern oAge.Years,oAge.Months,oAge.Days ?
I can confront two Age? Not
I can return to the birth date? Not.

Then the issue is badly mail.
Reason? Loss of information in the calculation.

Add another property : LostDays ( Days lost for the change month )

Or add LostDays value to the Days value.

Example:

CLEAR

oAge = createobject('Age')
ldBirth = {^1961/1/19}
ldTarget = date() && How old is he today.
oAge.CalcAge(ldBirth, ldTarget)
oAge.LostDays = 0
? GOMONTH(m.ldTarget,-(12*oAge.Years+oAge.Months))-oAge.Days-oAge.lostDays

oAge.CalcAge({^2003/1/29}, {^2003/3/1})
oAge.lostDays = 2
? GOMONTH({^2003/3/1},-(12*oAge.Years+oAge.Months))-oAge.Days-oAge.lostDays

oAge.CalcAge({^2003/1/30}, {^2003/3/1})
oAge.lostDays = 1
? GOMONTH({^2003/3/1},-(12*oAge.Years+oAge.Months))-oAge.Days-oAge.lostDays

oAge.CalcAge({^2003/1/31}, {^2003/3/1})
oAge.lostDays = 0
? GOMONTH({^2003/3/1},-(12*oAge.Years+oAge.Months))-oAge.Days-oAge.lostDays

Define Class age As Relation
  Years=0
  Months=0
  Days=0
  lostDays=0
...