Delphi中如何计算日期！(20分)

E

ENIAC1946

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #1

各位大虾：

　　请教！我现在需要根据借书日期，计算出还书日期！

　　备注：我用的控件为 DateTimePicker！

　　要求：计算出的日期必需为实际存在的日期！不能出现像 2月30日的情况！

 

D

delphiland

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #2

还书日期:=DateTimePicker.Date + 30

 

A

Awen.ZW.Yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #3

vRDate,vBDate : TDate;
days : Integer;//借书天数
vBDate := DateTimePicker1.Date; //借书日期
vRDate := vBDate + days; //还书日期

 

E

ENIAC1946

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #4

多谢大哥指点！

我的积分很少！现在只剩5分了，请谅解！