怎样将日期和时间合并？

Question

用了两个TDateTimePicker，一个显示日期，一个显示时间，不知道怎样将日期和时间合并为一个datetime保存到数据库？

Answer 1

var
  astr:string;
begin
  astr :=DateToStr(DateTimePicker1.Date)+' '+FormatDateTime('HH:MM:SS',DateTimePicker2.Time);
  ShowMessage(astr);

Answer 2

var
  datetime:String;
begin
  datetime:=formatdatetime('yyyy-MM-dd',self.dtDate.DateTime)+' '+formatdatetime('hh:mm:ss',self.dtTime.DateTime);
  showmessage(datetime);
end;

Answer 3

datetime：trunc(datetimepicker1.date)+frac(datetimepicker2.date)
string:formatdatetime('yyyy-mm-dd hh:nn:ss',trunc(datetimepicker1.date)+frac(datetimepicker2.date))