Datum konvertieren

[Nothine]

z.B. so

Delphi-Quellcode:

  var ST: TSystemTime;
      DT: TDateTime;
  begin
    DT := StrToDate(StringReplace(Maskedit1.Text,'-','.',[rfReplaceAll]));
    DateTimeToSystemTime(DT,ST);
    query6.ParamByName('GUELTIG_AB').AsString :=
    IntToStr(ST.wYear)+'-'+IntToStr(ST.wMonth)+'-'+IntToStr(ST.wDay);
  end;