Comment calculer un âge à partir d'une date de naissance ?

rep est un texte
demande 'Date de naissance (jj/mm/aaaa) ?' dans rep
naissance est une date
naissance vaut vers_date(rep)
age est un nombre
age vaut année_de(aujourd_hui()) - année_de(naissance)
// pas encore d'anniversaire cette année ?
si mois_de(aujourd_hui()) < mois_de(naissance) ou (mois_de(aujourd_hui()) = mois_de(naissance) et jour_de(aujourd_hui()) < jour_de(naissance)) alors
    age soustrait 1
fin si
affiche 'Tu as ' + age + ' ans'