Delphi中如何计算日期！

Question

各位大虾：　　请教！我现在需要根据借书日期，计算出还书日期！　　备注：我用的控件为 DateTimePicker！　　要求：计算出的日期必需为实际存在的日期！不能出现像 2月30日的情况！

Answer 1

edit1.Text:=datetostr(DateTimePicker1.Date+30);
//假设借阅时间是30天

Answer 2

如果是1个月的话，那就是：BackDate := IncMonth(DateTimerPicker.date):

Answer 3

算时间在delphi中是最容易的，如下：    
var  ss : TDateTime    
其实Tdatetime是一个双精度的浮点数，它的小数点前表示天数：     
如，  ss := ss + 20 表示从ss开始向后20天，如果 ss = 234.567    
它就表示 234.567天,当然是从公元0年开始计算的！
(转载)

Answer 4

DateTimePicker2.DateTime := 
  DateTimePicker1.DateTime + StrToInt(Edit1.Text)
//DateTimePicker2.DateTime还书日期
//DateTimePicker1.DateTime借书日期
//Edit1.Text 相隔日期

Answer 5

procedure TForm1.Button2Click(Sender: TObject);
var
  t:TDate;
begin
  t:=Date;
  t:=t+36; //三十六天后的日期
  Edit1.Text:=DateToStr(t);
end;

Answer 6

觉得 star_of_light(星星之光)  先生的最好

Answer 7

DELOHI中时间类型是浮点数，用借书日期加上最长能借书天数即可得到该还书的日期。

Answer 8

varstring:=formatDateTime('yyyy/mm/dd',now+30);今天加30天