delphi 时间怎么比较啊

Question

如:定义一个时间变量 
  dat_to:datetime
  我要比较dat_to 是不是在 "现在" 与"明年的现在" 之间啊??怎么写啊??拜托

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var y, m, d, Hour, Min, Sec, MSec: Word;
i:real;
begin
i:=0;
DecodeDatetime(now, y, m, d,Hour,Min,Sec,MSec);
EncodeDatetime(y+1,m,d,Hour,Min,Sec,MSec);//等到明年的现在
if (i>=now()) and (i<=EncodeDatetime(y+1,m,d,Hour,Min,Sec,MSec)) then   //i就是你要处理的那个变量
   showmessage(datetimetostr(EncodeDatetime(y+1,m,d,Hour,Min,Sec,MSec)));
end;

Answer 2

下面这几句应该是要你的意思：
var
  S,D:tdatetime;
begin
  S:=Date;　　//当天
  D:=strtodate('2004-5-19');　//以前的某一天
  if  formatdatetime('MMDD',s)=formatdatetime('MMDD',D) then showmessage('Y') else showmessage('N');　　//判断当天是不是以前某年中的某一天