Er zerlegt aber den String und nicht das Datum. Ein TDateTime ist vom Typ double, IIRC ist das schon seit Delphi 1 so, das kann nichts mit der Delphi-Version zu tun haben.
Er erstellt aus dem Datum jeweils einen String DD/MM/YYYY , vergleicht diese Strings miteinander (im DD/MM/YYYY-Format, das klappt nur wenn beide Jahr und Monat gleich haben), danach macht er aus den Strings wieder Datum-Angaben.
DateToStr benutzt Formateinstellungen, die können (wenn nicht angegeben) unterschiedlich sein, z.B. DD/MM/YYYY oder die englische Version MM/DD/YYYY. Auch der Separator "/" kann unterschiedlich sein , z.B. "." oder "-".
Zitat:
procedure TForm2.Button1Click(Sender: TObject);
var zeile, spalte: integer;
begin
spalte := 1;
//Datum des DateTimePicker auf Variablen legen
anreise:=(DatetoStr(bu_anreise.Date));
abreise:=(DatetoStr(bu_abreise.Date));
if (anreise >= abreise) then
begin
Showmessage('Buchung nich möglich. Bitte überprüfen Sie das Datum.');
end
else
begin
{
DD:=copy(anreise,1,2); //auf DD den Tag des Monats legen
delete(anreise,1,3); // Tag des Monats und den dazugehцrigen Punkt lцschen
MM:=copy(anreise,1,2); //auf MM den Monat legen
delete(anreise,1,3); //den Monat und den dazugehцrigen Punkt lцschen
JJ:=copy(anreise,1,4); //auf JJ das Jahr legen
anreise:=DD+'/'+MM+'/'+JJ; //auf anreise Tag, Monat und Jahr legen und
//diese mit / als Trenzeichen versehen
DD:=copy(abreise,1,2); //auf DD den Tag des Monats legen
delete(abreise,1,3); // Tag des Monats und den dazugehцrigen Punkt lцschen
MM:=copy(abreise,1,2); //auf MM den Monat legen
delete(abreise,1,3); //den Monat und den dazugehцrigen Punkt lцschen
JJ:=copy(abreise,1,4); //auf JJ das Jahr legen
abreise:=DD+'/'+MM+'/'+JJ; //auf abreise Tag, Monat und Jahr legen und
//diese mit / als Trenzeichen versehen
}
//ANFRAGE: die Zimmer sollen ausgegeben werden die
// im angegebenen Zeitraum belegt sind