比较使用DateTimePicker组件Delphi 7日期
2015-05-17 16:40
399 查看
参考资料:比较使用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
就可以解决!
相关文章推荐
- 使用json.net 组件 生成JSON字符串,自定义日期格式
- Delphi for iOS开发指南(5):在iOS应用程序中使用Calendar组件来选择日期
- JS日期比较,使用正则表达式转换
- delphi列表视图组件(TListView)使用方法|实例
- 使用Delphi编写COM组件
- Delphi命令行输出组件DOSCommand及Widnows 命令解释使用说明
- DELPHI控件:DBLookupComboBOX组件的使用方法
- 关于 Delphi 中流的使用(5) 组件序列化
- 使用Swing的JSpinner组件设置日期时间选择器
- bootstrap-datetimepicker日期插件的使用
- 《WebBrowser组件和MSHTML 在Delphi中的使用》补充
- delphi中时间比较、日期相减、日期比较
- jquery的date input日期组件使用
- Delphi for iOS开发指南(5):在iOS应用程序中使用Calendar组件来选择日期
- 让delphi程序不受WINDOWS日期格式的影响(使用SetLocaleInfo函数和Application.UpdateFormatSettings)
- windows 2003 COM+组件使用Delphi实现
- 用 Delphi 7 创建 ActiveX 组件交 ASP 使用
- delphi中使用TIdFTP组件笔记
- delphi中日期类型TDateTime使用总结
- 在使用delphi中对DOUBLE类型比较问题