[Lazarus] DateDif function needed

Frederic Da Vitoria davitofrg at gmail.com
Mon Nov 18 15:44:55 CET 2013

2013/11/18 John Landmesser <JohnML at online.de>

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

Yes, it would be more usual, but since you seem interested, I will try to
create a "signed version, which will of course return signed values.

Frederic Da Vitoria

Membre de l'April - « promouvoir et défendre le logiciel libre » -
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20131118/c6812bb8/attachment-0003.html>

More information about the Lazarus mailing list