日期的操作(10分)

N

nter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #1

请问怎将日期如 '2000-04-02'的月份加一或减一，
不会是加（减）30天吧？

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #2

用取出copy(s, 6, 2)取出'04',转成integer不就行了

 

笑

笑晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #3

用IncMonth函数
function IncMonth(const Date: TDateTime
NumberOfMonths: Integer): TDateTime;
NumberOfMonths为正是增加月份，为付是减少月份。
关于日期的操作，可以查看Delphi Help中的TDateTime type.

 

F

flyinsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #4

var
theday:Tdate;
str:string;
begin
theday:=encodedate(2000,5,31)
//获得日期‘2000-5-31’
theday:=incmonth(theday,-3)
//将其减掉2个月，看看减了几天
str:= datetostr(theday);
form1.Canvas.TextOut(100,100,str);
end;

答案是：：：：‘2000-2-29’，不是‘2000-2-31’
显然，若 theday:=incmonth(theday,-2），也就是到3月分，结果就是
‘2000-3-31’，可见他的函数以近帮你全处理好了，不必你去担心。

 

C

chimney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-30

• #5

笑晨的办法是最好的。

 

L

lipingcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-01

• #6

爽,我准备提的问题居然在这里找到答案了!

 

敏

敏哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #7

想说明一点：
Type
TDateTime = type Double;
TDate = type TDateTime;
即日期就是Double类型的实数。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #8

接受答案了.