用两个DatetimePicker控件的组合生成一个Datetime值(Delphi)

方法1：

procedure TForm1.btn1Click(Sender:TObject);
var    s:string;
begin
     //yyyy-mm-dd后面带了一个空格，为了拼上time时格式正确
     s:=FormatDateTime('yyyy-mm-dd ',dtp1.Date) + FormatDateTime('hh:mm:ss',dtp2.Time);
end;

方法2：

procedure TForm1.btn1Click(Sender:TObject);
var    s:string;
begin
     //date、time值合并到一个控件。
     dtp1.Time:=dtp2.Time;
     s:=FormatDateTime('yyyy-mm-dd hh:mm:ss',dtp1.DateTime);
end;