简单问题，date的月份如何+1？(50分)

L

ludao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #1

给一个日期型的变量的月份+1，要如何写？
当然，如果是12月份，要会自动进位！谢谢！

 

C

c2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #2

DateToStr
StrToData

 

W

weblogic_li

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #3

function(const transDate:TDatetime);Tdatetime;
var
transDateYearStr,transDateMonStr,transDateDayStr:String;
begin
transDateYearStr:=formatdatetime('yyyy',transDate);
transDateMonStr:=formatdatetime('mm',transDate);
transDateDayStr:=formatdatetime('dd',transDate);

if strtoint(transDateMonStr)=12 then
begin
transDateMonStr:='1';
transDateYearStr:=inttostr(strtoint(transDateYearStr+1));
end
else
begin
transDateMonStr:=inttostr(strtoint(transDateMonStr+1));
end;
result:=strtodatetime(transDateYearStr+'-'+transDateMonStr+'-'+transDateDayStr);
end;

 

L

ludao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #4

哇！这么复杂，难道delphi中没有自带的函数么？

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #5

IncMonth(ADateTime,NumberOfMonths);

 

L

ludao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #6

huawdg兄，怎么用？
比如：我给date1的日期的月份加1。
这样写 IncMonth(date1.datetime,NumberOfMonths);
编译不能通过啊！

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #7

这样写 IncMonth(date1.datetime,1);

 

L

ludao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #8

不行啊！
IncMonth(date1.datetime,1);
showmessage(formatdatetime('yyyy-mm-dd', date1.DateTime));
结果还是最初的值，没有变化。
555...

 

S

songyanzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #9

shenloqi,IncMonth(date1.datetime,1);
举个例子好吗

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #10

就直接加啊

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #11

var
ADate: TDateTime;

ADate:=date1.DateTime;
IncMonth(ADate, 1);
showmessage(formatdatetime('yyyy-mm-dd', ADate));
BTW: ludao你不适合编程序,改行吧.

 

L

ludao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #12

好了,我明白了!应该赋值的,呵呵!我还以为它自动的呢!呵呵!
谢谢大家!
DT1.DateTime:=IncMonth(DT1.DateTime,1);

 

L

ludao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #13

Leechange,俺是初学者,你不要这么打击人,好不好???faint![!]

 

C

chenyu0603

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-24

• #14

hehe