请问高手，有没有函数能直接将日期减1而得到正确日期？(100分)

S

simonsin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #1

[8D]

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #2

什么意思，日期型的不就能直接加减

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #3

showmessage(datetimetostr(date-1))

直接减就是了。

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #4

date-1
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;

Description

IncDay returns the value of the AValue parameter, incremented by ANumberOfDays days. ANumberOfDays can be negative, to return a date N days previous.

The time of day specified by the AValue parameter is copied to the result.

 

太

太平洋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #5

是啊，你到底是什么意思？

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #6

每个日期减1都能得到正确的日期啊。

 

M

mk1024

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #7

uses DateUtils;

用 [blue]IncDay(日期, -1)[/blue] 就可以了

 

T

tornado_cs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #8

日期型其实是个浮点数，个位数就是天，直接减一就可以了

 

海

海风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #9

日期型其实是个浮点数，个位数就是天，直接减一就可以了
同意楼上观点

 

S

simonsin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #10

mk1024懂我的意思，在Delphi里有IncMonth(Now,-1)，就可以直接得到上一个月，但我
找不到类似可以直接得到上一天的。如果用日期直接减一，如果今天是1号的话，会得个
什么结果。但是mk1024兄，我试过你的方法，但还是出错。DateUtils去那里找。

 

S

simonsin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #11

多人接受答案了。