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;