日期计算：如何知道当前日期的前30个月是哪年哪月？ ( 积分: 50 )

D

delphi0808

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-10

• #1

推而广之：当前日期的前n个月是哪年哪月

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-10

• #2

Uses DateUtils;

var
D: TDateTime;
begin
D := Now;
D := IncMonth(D, -30);
ShowMessage(DateTimeToStr(D));
end;

 

D

Dstorm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-10

• #3

我的思路：
var
d : TDate;
c : integer;//前n个月的天数，很好算的
begin
d := date -c ;//n个月前年月
ShowMessage(DateToStr(d));
end;

 

4

41426277

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-10

• #4

用IncMonth函数
A=NOW；
IncMonth（A，-30）；就是前30个月的日期

 

S

shadowpj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-10

• #5

incmonth(date,-n)

 

C

ChrisMao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-10

• #6

需要 use DateUtils

 

D

delphi0808

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #7

多人接受答案了。