|
procedure TForm1.Button1Click(Sender: TObject);
var
st, formatsave : string; DT : TDateTime; begin
st := Edit1.text; // '1996-06-03 00.00 := ShortDateFormat; ShortDateFormat := 'yyyy.mm.dd hh.mm.ss'; while pos ('-', st) > 0 do st [pos ('-', st)] := '.'; DT := StrToDateTime (st); ShortDateFormat := formatsave; Label1.Caption := DateTimeToStr (DT); end; |