boah mein kopp der burnt ein wenig. Soviele neue Sachen. Ich glaube ich hab mehr gelrent als in den letzten 6 Info Std. ^^ Naja ich bin jetzt bei folgendem Code:
Delphi-Quellcode:
program datum;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
date1, date2, date3 : String;
mdate1, mdate2, mdate3 : 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);
mdate3 := mdate1 - mdate2 - DateDelta;
date3 := DateToStr(mdate3);
WriteLn('Die Differenz betraegt: ', date3);
ReadLn
end.
Jedoch ist das noch nicht ganz richtig, weil wenn ich:
20.02.2004
-20.02.2002
mache, kommt:
31.12.0001 raus.
Ich muss erstmal drüber nachdenken, wo mein Denkfehler liegt ^^