还珠之太后驾到:delpi strtodate datetostr

procedure TForm1.Button1Click(Sender: TObject);
var settings: TFormatSettings;dt: TDateTime;begin GetLocaleFormatSettings(GetUserDefaultLCID, settings);settings.DateSeparator := '/';settings.TimeSeparator := ':';settings.ShortDateFormat := 'yyyy/mm/dd';settings.ShortTimeFormat := 'hh:nn:ss'; dt:= strToDateTime('2010/3/19 08:09:10',settings);DateTimePicker1.DateTime :=dt;end;procedure TForm1.Button2Click(Sender: TObject);
begin
  DateTimePicker2.DateTime := strToDateTime('2010/3/19 08:09:10');
end;procedure TForm1.Button3Click(Sender: TObject);
begin
edit2.Text:=floattostr(   strToDateTime('2010-3-19 08:10:10')  - strToDateTime('2010-3-19 08:09:10'));
edit3.Text:=floattostr(   strToTime('08:10:10')  - strToTime('08:09:10'));
edit4.Text:=floattostr(   strToTime('00:01:00'));end;