修改时间的函数(200分)

Q

QiuXiaoFeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #1

请问各位好汉：
想寻找这样的函数：在指定的Tdatetime上加上一段时间间隔得到另一个时间值，
而不必考虑年月日时分秒是否超出合理范围，是否需要进位，一个月有几天，是否是
闰年等等问题，VB中DateAdd函数有上述功能，真是方便极了，不知道Delphi是否有，
或者哪位好汉做过这样的函数？。
200分求解！！

 

L

liujingnan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #2

Delphi中的TDateTime是实数，可以将两个TDateTime直接相加得到另一个TDateTime,
也可以用TDateTime加实数得到另一个TDateTime!

 

笑

笑傲江湖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #3

不知你的真正意思.

怕什么?

procedure TForm1.Button1Click(Sender: TObject);
var
dt: TDateTime;
begin
dt := DateTimePicker1.DateTime;
dt := dt + 100;
DateTimePicker1.DateTime := dt;
end;

 

Y

yangkee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #4

可以实现：加上一段时间间隔-->用function StrToDateTime(const S: string):TDateTime;
S 格式为MM/DD/YY HH:MM:SS 得到时间间隔的TDateTime格式,将两个TDateTime相加即可得到另一个时间值.

 

P

powerjet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #5

你可能需要的函数IncMonth，EncodeDate，DecodeDate

 

N

nhuangjr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
t: TDateTime;
begin
t := now;//现在的时间
t := t + 100;//比VB还方便
edit1.text:=datetostr(t);//显示一百天以后的日期
end;

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #7

QiuXiaoFeng:
1。举个例子
2。不用那么费分吧？

 

Q

QiuXiaoFeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #8

看过了答案，确实有点舍不得了，不过已经解决了问题，学到知识了。

 

V

VGA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #9

QiuXiaoFeng 发财了！

 

Q

QiuXiaoFeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-04

• #10

多人接受答案了。