delphi 时间怎么比较啊

[520520java]

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

[vsice]

下面这几句应该是要你的意思：
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');　　//判断当天是不是以前某年中的某一天

[gulf1234]

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;