如何计算某日期经过数日后的日期

Question

TDateTime类型可以直接加减天数的
Date=TDateTime(2000, 1, 20)+400

Answer 1

如果是SQL Server，可以用DateAdd

Answer 2

直接加上去就行了：
var
  Date1, Date2:  TDate;
begin
  Date1 := DateTimePicker1.Date; //EncodeDate(2000, 1, 20);
  Date2 := Date1 + SpinEdit1.Value;  // 简单的加法，可以改为400看看
  ShowMessage(DateToStr(Date2));
end;
结果是2001-2-23

Answer 3

请用对象浏览器查看VB库中的datetime类。其中有你需要的所有东西。你的问题就可以用dataserial函数解决。具体你自己看一下。

Answer 4

dim a as date
a=#2001-1-20#
a=a+400