[Lazarus] DateDif function needed

[Frederic Da Vitoria]

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
(davitof)

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