[Lazarus] DateDif function needed

Michael Van Canneyt michael at freepascal.org
Sat Nov 16 18:21:59 CET 2013

On Fri, 15 Nov 2013, Bart wrote:

> On 11/15/13, Michael Schnell <mschnell at lumino.de> wrote:
>> In fact I consider it a waste of bandwidth to discuss a problem that
>> obviously is not solvable at this length. (But who am I do complain
>> about that :-[ .)
> Of course it can be solved.
> Just add a enough options (appr. 255?) to the procedure to make it
> behave just like the caller wants.
> Do I want to do that? No.  ;-)
> The fun part for me is the fact that a seemingly simple question,
> where at first glance you would think "I'll just implement that", can
> lead to so many "problems".

I added a modified version of your implementation to the DateUtils unit as:

Procedure PeriodBetween(Const ANow, AThen: TDateTime; Out Years, months, days : Word);

I chose this name because it is more in line with the existing XXXBetween functions.

I did change the algorithm so it does not do the correction for february of the leap year.
It returns now the same results as the Jedi function. (which I didn't take for license reasons)

Thanks for providing an implementation.


More information about the Lazarus mailing list