比较使用DateTimePicker组件Delphi 7日期

参考资料:比较使用DateTimePicker组件Delphi 7日期

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

就可以解决！

 

转载于:https://www.cnblogs.com/ufindme/p/4509978.html