如何实现日期+1？

Question

日期变量是浮点数，让它+1就行了。如
var
d:TDateTime;
d:=d+1;

Answer 1

kerplayer(含玉)说得对，我就是这么用的

Answer 2

例如：procedure TForm1.Button1Click(Sender: TObject);
var
        ts:TTimeStamp;
        date_old,date_new:TDate;
begin
        Date_old:=strtodate('1999-12-31');
        ts:=DateTimeToTimestamp(date_old);        ts.Date:=ts.Date +1;
        date_new:=timestamptoDatetime(TTimeStamp(ts));        showmessage(datetostr(date_old));
        showmessage(datetostr(date_new));
end;

Answer 3

你可以看Tdatetime= dounble;
所以＋1即可

Answer 4

   好像这么写也可以
var
 date :tdatetime;
begin
  date := date + 0.9999
  showmessage(formatdatetime('yyyy-mm-dd',date));
end;
  
       
    

Answer 5

很简单
var
  v_date:tdatetime;
begin
  v_date:=date+1;   
  showmessage(formatdatetime('yyyy-mm-dd',v_date));
end;

Answer 6

日期加1：
var mydate:TDate;
.....
.....
mydate := Date(); // 取当前日期
mydate := IncDay(mydate,1)  // 日期加1