日期问题，在线等，急

Question

我现在在进行日期递增时怎么才知道这个日期合法，
如StrToInt(20040228)+1,这样得到的结果会是20040229，这是一个不存在的日期怎样才能使它得到20040301，

Answer 1

FormatDateTime('yyyymmdd',StrToDatetime('2004-02-28')+1)  //2004-03-01

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
s3:integer;
s1,s2 :tdate ;
begin
  s1:=strtodate('2004-2-29');
  s2:=s1+1;
  edit1.Text :=datetostr(s2) ;
  s3:=strtoint(formatdatetime('yyyymmdd',strtodate(edit1.Text)) );
  showmessage(inttostr(s3)) ;end;
自己看看吧。。

Answer 3

這樣也可以啊！FormatDateTime('yyyymmdd',Incday(Date,1))
但是今年2月確實有29號啊！