Datum-Countdown

[baumina]

Zitat von Beginner2013:

...zeigen beide das richtige an. Die Erste Message: 27/May/13 und die zweite 28/May/13 (wenn eingeben.

Also das Windows-Datumsformat (entspricht auch dem FormatSettings.ShortDateFormat) entspricht dem o.g. Format.

Da du FormatSettings.ShortDateFormat auskommentiert hast, ist das Datumsformat immer noch das o.g.

Ein FormatDateTime gibt dir das Datum ein einem gewünschten Format als String aus, ändert aber kein ShortDateFormat.

Ein StrToDate erwartet immer einen String mit dem Format FormatSettings.ShortDateTimeFormat.

Deswegen müsste es eher so gehen:

Delphi-Quellcode:

uses SysUtils;

procedure TForm1.Termincountdown1Click(Sender: TObject);
var
  Test : Integer;

begin
  Form13.Show;
  Form13.Caption := 'Termincountdown';
  FormatSettings.ShortDateFormat := 'dd.mm.yy';
  showmessage(DateToStr(date));
  showmessage(edit10.Text);
  Test := trunc(StrToDate(Edit10.Text) - date);
  Form13.Label5.Caption := InttoStr(Test);
end;

[Beginner2013]

Es funktioniert Vielen Dank an Alle