procedure TfrmSaleHisQry.btnQueryClick(Sender: TObject); var dtpBegin: TDateTimePicker; dtpEnd: TDateTimePicker; begin dtpBegin.Date := StrToDate(FormatDateTime(‘yyyy/MM/dd‘,Now())); //时间显示为今天的日期 dtpEnd.Date := StrToDate(FormatDateTime(‘yyyy/MM/dd‘,Now())); //时间显示为今天的日期 if dtpBegin.Date <= dtpEnd.Date then begin Messagebox(handle,‘查询起始日期<=截止日期‘,‘正确‘,MB_OK); end else Messagebox(handle,‘查询起始日期不能大于截止日期‘,‘错误‘,MB_OK); end;
结果：直接点查询（不去修改初始化的值），提示：错误--查询起始日期不能大于截止日期
从上面的代码我们可以看到，用于比较的是datetimepicker.DATE，即一个日期型的数值，而大家也可以看到，日期是相同的，可是在程序执行时，得到的结果是dtpBegin.date大于dtpEnd.Date。
但是调试的时候发现，BeginDate.date=42141.634544，EndDate.date =42141.634706;这说明整数整数是相等的，只要取整即可——将那条if语句改为:
if Trunc(dtpBegin.Date) <= Trunc(dtpEnd.Date) then
就可以解决！
比较使用DateTimePicker组件Delphi 7日期
原文：http://www.cnblogs.com/ufindme/p/4509978.html