用两个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;