Преобразование даты

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;

 
« Предыдущая статья   Следующая статья »