-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=怎么判断日期？-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Question

用的是Table，请教怎么判断日期？

Answer 1

var
  YY,MM,DD:Word; //当前日期变量
  NowMonth,NowYear:String;//当前年，月
  MonthVar,YearVar:String;//要判断的年，月
begin
  DeCodeDate(Now,YY,MM,DD);//取得当前日期
  NowYear:=IntToStr(YY);//年
  if MM<=9 then NowMonth :='0'+IntToStr(MM) else NowMonth:=IntToStr(MM);
  DeCodeDate(Table1.FieldByName('Qujiriqi').AsDate,YY,MM,DD);//取得要判断的日期
  YearVar:=IntToStr(YY);//年
  if MM<=9 then MonthVar :='0'+IntToStr(MM) else MonthVar:=IntToStr(MM);
  if (NowMonth=MonthVar) and (NowYear=YearVar) then ShowMessage('相等!')
  else ShowMessage('不相等!'); 

Answer 2

上面最后少了一个end;
呵呵～～保持严谨～～

Answer 3

DateTimePicker1.date就可以了，呵呵
给分！