Registriert seit: 3. Jul 2004
Ort: Mülheim an der Ruhr
198 Beiträge
Delphi 5 Enterprise
|
Re: Datum konvertieren
26. Aug 2004, 07:46
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;
if ThisPost is senseless then
ThisPost.WasPostedBy := SomeoneElse();
|