TDateTime

[dR4g0N]

Also folgendes Problem:

Ich möchte 2 Daten subtrahieren. Jedoch kommt immer eine falsche Jahreszahl raus (Jahreszahl + 1900).

Es handelt sich um ein Konsolenprogramm.

Delphi-Quellcode:

program date1;

{$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;
date3 := DateToStr(mdate3);
WriteLn('Die Differenz betraegt: ', date3);
ReadLn

end.

Wo ist mein Fehler? o_O