50分问题---怎样用Datetimepicker1判断是今天？（非常感谢）

Question

例如：
  
   if datetimepicker1.date=date then
   showmessage('ok');但程序运行不正确。

Answer 1

var
 a:SystemTime;getSystemtime(a);
if datetimepicker1.date=a then
showmessage('ok');

Answer 2

你把datetimepicker1的time属性你的值删掉就可以了

Answer 3

不行就都加个datetostr转换成string再比，试试

Answer 4

if StrToDateTime(formatDateTime('yyyy/mm/dd',DateTimePicker1.Datetime))=
   StrToDateTime(formatDateTime('yyyy/mm/dd',now)) then
     showmessage('ok')
else
    showmessage('no');

Answer 5

shortdateformat:='yyyymmdd';
longdateformat:='yyyymmdd';if datetimepicker1.date=date then
   showmessage('ok');

Answer 6

wzrlover说的对
StrToDateTime(formatDateTime('yyyy/mm/dd',DateTimePicker1.Datetime))= StrToDateTime(formatDateTime('yyyy/mm/dd',now))

Answer 7

var
  date1,date2 : TDateTime ;
begin
  date1 := DateTimePicker1.Date ;
  date2 := TDateTime(now) ;
  if (date1=date2) then
    showmessage('ok');

Answer 8

wzrlover ： 对 
 先将时间格式化一下