Differenz zwischen zwei Datumsfelder berechnen

[Duffy]

Hallo alle zusammen,
mit diesen Funktionen kann man die Differenz zwischen zwei Datumsfeldern berechnen.

Delphi-Quellcode:

function DaysBetween2(Datetime1, DateTime2: TDateTime): Integer; overload;
begin
  if DateTime1 < Datetime2 then
  begin
    Result := Trunc(DateTime2 - DateTime1);
  end
  else
  begin
    Result := Trunc(DateTime1 - DateTime2);
  end;
end;

Delphi-Quellcode:

function DaysBetween2(Datetime1, DateTime2: string): Integer; overload;
begin
  Result := DaysBetween2(StrToDate(Datetime1), StrToDate(DateTime2));
end;

Delphi-Quellcode:

function DaysBetween2(Datetime1: TDateTime; DateTime2: string): Integer; overload;
begin
  Result := DaysBetween2(Datetime1, StrToDate(DateTime2));
end;

Delphi-Quellcode:

function DaysBetween2(Datetime1: string; DateTime2: TDateTime): Integer; overload;
begin
  Result := DaysBetween2(StrToDate(Datetime1), DateTime2);
end;

die Funktionen werden wie nachfolgend aufgerufen

Delphi-Quellcode:

Differenz = DaysBetween2(Date, StrToDate('01.07.2003'));
Differenz = DaysBetween2('01.07.2003', '11.07.2003');
Differenz = DaysBetween2(Date, '01.07.2003');
Differenz = DaysBetween2('01.07.2003', Date);

bye