DBR Delphi-Ecke

// Die Funktion VarToDateTime erlaubt das Verarbeiten von Datumsangaben
// in verschiedenen Schreibweisen. Das Trennzeichen zwischen den Angaben
// kann ein Komma, ein Punkt, ein Schrägstrich, ein Bindestrich oder ein
// Leerzeichen sein. Die Reihenfolge kann Jahr-Monat-Tag oder
// Tag-Monat-Jahr sein.

// Getestet mit D4 unter XP

// Beispielaufruf

procedure TForm1.Button3Click(Sender: TObject); 
var 
  Dat1, Dat2, Dat3, Dat4, Dat5, Dat6, Dat7: TDate; 
begin 
  Dat1 := VarToDateTime('26.9.05'); 
  Dat2 := VarToDateTime('26-September-2005'); 
  Dat3 := VarToDateTime('2005-09-26'); 
  Dat4 := VarToDateTime('26. September 2005'); 
  Dat5 := VarToDateTime('26 09 2005'); 
  Dat6 := VarToDateTime('2005/09/26'); 
  Dat7 := VarToDateTime('26. 09, 2005'); 
  Label1.Caption := DateToStr(Dat1) + #13 + DateToStr(Dat2) + #13 + 
    DateToStr(Dat3) + #13 + DateToStr(Dat4) + #13 + DateToStr(Dat5) + #13 
    + DateToStr(Dat6) + #13 + DateToStr(Dat7); 
end;