[Lazarus] DateDif function needed

[John Landmesser]

On 08.11.2013 21:35, John Landmesser wrote:
> Hi List,
>
> i'm searching a pascal datetime function that simulates an Excel 
> function: "DateDif"
>
> Excel for example knows the function DateDif that returns the number 
> of Years, month and days between Date1 and date2.
>
> Date1 := 21.12.2012
> Date2 := 01.01.2013
>
> Result would be: 0 years, 0 moths, 11 days
>
> I tried to do it on my own, but without success.
>
> But i think there is a function out there but i don't know its name :-((
>
> Thanks for your tipps
>
> John
>
> -- 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Hi list,

This discussion seems to be finished ( 92 posts ) and i want to make a 
proposal as solution:

Use the function DateDiff from Jedi ( RxLib ) ( JvJCLUtils.pas ).

It's not perfect, but it works for me:

**********************************************

procedure DateDiff(Date1, Date2: TDateTime; var Days, Months, Years: word);
var
   DtSwap: TDateTime;
   Day1, Day2, Month1, Month2, Year1, Year2: word;
begin
   if Date1 > Date2 then
   begin
     DtSwap := Date1;
     Date1 := Date2;
     Date2 := DtSwap;
   end;
   DecodeDate(Date1, Year1, Month1, Day1);
   DecodeDate(Date2, Year2, Month2, Day2);
   Years := Year2 - Year1;
   Months := 0;
   Days := 0;
   if Month2 < Month1 then
   begin
     Inc(Months, 12);
     Dec(Years);
   end;
   Inc(Months, Month2 - Month1);
   if Day2 < Day1 then
   begin
     // von mir auskommentiert Inc(Days, DaysPerMonth(Year1, Month1));
     Inc(Days, DaysInAMonth(Year1, Month1));
     if Months = 0 then
     begin
       Dec(Years);
       Months := 11;
     end
     else
       Dec(Months);
   end;
   Inc(Days, Day2 - Day1);
end;

**********************************************

Hope that statement is usefull for somebody reading this thread.

I couldn't find any bug report on "Project JEDI - Issue Tracker".

Thanks for this discussion!

John
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20131116/6a7a716b/attachment-0003.html>