oder vlt das hier: hatte mal ein kleines konsolenprogrämmchen geschrieben:
Delphi-Quellcode:
program datum;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
date1, date2, date3 : String;
mdate1, mdate2, mdate3, between : TDateTime;
begin
WriteLn('Bitte geben Sie das 1. Datum ein: [dd.mm.yyyy]');
ReadLn(date1);
WriteLn('Bitte geben Sie das 2. Datum ein: [dd.mm.yyyy]');
ReadLn(date2);
mdate1 := StrToDate(date1);
mdate2 := StrToDate(date2);
between := DateDelta + StrToInt('365');
mdate3 := mdate1 - mdate2 - between;
date3 := DateToStr(mdate3);
WriteLn('Die Differenz betraegt: ', date3);
ReadLn
end.