delphi中判断日期相等:if (dtp1.Date=Now) and (dtp2.Date=Now) then 这样是不行的,可以参考以下方法:
if (FormatDateTime('yyyy-mm-dd',dtp1.Date)=FormatDateTime('yyyy-mm-dd',Now))
and (FormatDateTime('yyyy-mm-dd',dtp2.Date)=FormatDateTime('yyyy-mm-dd',Now)) then
act_Today.Execute
else
act_History.Execute;