怎样取得DateTimePicker1的值，并转换成string?

Question

T := 'where comedate>=' + QuotedStr(DateTimePicker1);comedate为数据库字段，DateTimePicker1为查询时间的控件，请问我应该怎样转换才能使DateTimePicker1和comedate进行比较，谢谢指点

Answer 1

日期比较不用转换格式啊！
下面程序请参考
var
  a,b : TDatetime;
begin
  a := DateTimePicker1.DateTime;
  b := DateTimePicker2.DateTime;
  if a > b then
  begin  end
  else begin  end;
end;

Answer 2

如果comedate是日期时间型的字段:'where comedate >= CDate(' + QuotedStr(DateToStr(DateTimePicker1.Date)) + ')';

Answer 3

你数据库中的日期字段是否是日期型的，如果是，我建议你采用参数。例如
T := 'where comedate>=:ComeDate'
Parameters.ParamByName('ComeDate').Value:=DateTimePicker1.date