>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 >... >