Yes, I think that the code I posted covers both those cases, although
I did not write any tests to verify it so I cannot be certain.

Dave

On Sat, Jun 26, 2021 at 07:46:37PM +0000, Benoit St-Jean via Squeak-dev wrote:
> Just curious...
> Has anyone thought about the "born on Feb 29" or "today's date is Feb 29" cases ?
> :)
> 
> 
> ----------------- 
> Beno??t St-Jean 
> Yahoo! Messenger: bstjean 
> Twitter: @BenLeChialeux 
> Pinterest: benoitstjean 
> Instagram: Chef_Benito
> IRC: lamneth 
> GitHub: bstjean
> Blogue: endormitoire.wordpress.com 
> "A standpoint is an intellectual horizon of radius zero".?? (A. Einstein) 
> 
>     On Saturday, June 26, 2021, 12:59:38 p.m. EDT, David T. Lewis <lewis at mail.msen.com> wrote:  
>  
>  On Sat, Jun 26, 2021 at 01:13:06PM +0200, Bal??zs K??si wrote:
> > Ken's solution can be fixed for non-leap years by using <= instead of <,
> > but it breaks down for leap years. e.g.
> > 
> > a := Date year: 2003 month: 3 day: 1.
> > b := Date year: 2004 month: 2 day: 29.
> > 
> > b year - a year - (a dayOfYear <= b dayOfYear ifTrue: 0 ifFalse: 1) "
> > outputs 1 "
> > 
> > What seems to work is to let Date handle the leap year case with
> > #addMonths:. e.g.
> > 
> > yd := b year - a year.
> > (a addMonths: 12 * yd) > b ifTrue: [ yd - 1 ] ifFalse: [ yd ]. " outputs 0 "
> > Bal??zs
> >
> 
> Here is another variation that seems to work with leap years:
>  
> 
> Date ageAt: aDate
> ?????? "Given a date representing a person's birthday, answer that person's age at
> ?????? aDate as reported in the Western tradition. Note that age is reported differently
> ?????? in India and possibly other cultures."
> 
> ?????? " '9 Aug 1984' asDate ageAt: Date today "
> 
> ?????? ^ (aDate monthIndex > self monthIndex
> ?????? ?????? ?????? or: [aDate monthIndex = self monthIndex and: [aDate dayOfMonth >= self dayOfMonth]])
> ?????? ?????? ifTrue: [aDate year - self year]
> ?????? ?????? ifFalse: [aDate year - self year - 1].
> 
> 
> It's a bit discouraging when I use this with my real birthday though ;-)
> 
> Dave
> 
> 
>   
>