如何得到规定一个日期的前一天，后一天日期？

[kxw]

请问，我现在从数据库里得到了一个日期，比如是20060101，我如何在DELHPI里如何得到它的前一天日期，后一天日期？然后还要放在数据库里，做些计算。

在下delphi新手，问题较愚，请指教!!!!

谢谢!!

[GARNETT2183]

Date: TDate;
begin
Date := now;
Date := Date - 1;
end;

[kxw]

now可以指定吗？

[aiirii]

uses DateUtils ;
procedure TForm1.Button1Click(Sender: TObject);
var d: tdatetime;
begin
d := now;
d := incday(d, 1);
showMessage(dateToStr(d));
end;

如果是要前一天
则改为
d := incday(d, -1);

>>now可以指定吗？
可以，如用
var s: string;
begin
s := '20060101';
d := strToDate(s);


或者，
s := table1.fieldbyname('date').asstring;
...

[gerrylc]

var
date : Tdate;
前一天：date := now - 1;
后一天：date := now + 1;

[rlqiang]

幸福，得到高人指点了。收藏！

[forestry98]

TDate其实是Double类型的，所以日期加减可以用＋－直接进行，
GARNETT2183(極品狼王)的方法就可以了，
关于“NOW”可以直接用TDate类型的变量或者转换函数StrToDate('2006-02-01')直接替换。

[bambuz]

var
date1:string;
date2:TDate;
pdate,ndate:string;// 前一天日期,後一天日期
y,m,d:integer;

SELECT 日期 FROM 表 WHERE ...
date1:=Fieldbyname('日期').ASSTRING; //取得表中的日期

y:=strtoint(midstr(date1,1,4)); // 分離出年，月，日
m:=strtoint(midstr(date1,5,2));
d:=strtoint(midstr(date1,7,2));

ShortDateFormat:='yyyymmdd'; // 設定日期格式與表中格式一致

// 前一天日期
pdate := DateToStr(EncodeDate(y,m,d)-1);
//後一天日期
ndate := DateToStr(EncodeDate(y,m,d)+1);

[hellolongbin]

这个问题偶都不知道回答过几多遍了

[forestry98]

其实这种比较基础的问题，建议楼主多查查资料，这样往往答案来得更快。

[y740504]

可以直接对日期型字段加1得到后一天,减去1得到前一天,不行吗?

[summersky204608]

还没碰见过这个问题，记录一下！

[gxgyj]

+
-

[xielaixiangjx]

TdateTime的单位1是1天

[人鱼传说]

有那么麻烦吗,转成date后加1减1即可呀

[kxw]

谢谢各位啦，给分给分!参与都有分。