On 18.11.2013 13:11, Frederic Da Vitoria wrote: > procedure DatesToAge (Date1, Date2: TDate ; out Years, Months, Days: > integer); > var Hi Frederic, your code works as aspected! Perhaps it's more "usual" if you change the "out" Parameters to word?! Regards John