(马上给分)怎样才能实现日期的自动加1 如2002-10-20 变为 2002-10-21在线等候

Question

(马上给分)怎样才能实现日期的自动加1 如2002-10-20 变为 2002-10-21 但必须考虑不能出现2002-10-32或2002-13-10 等不正常的日期

Answer 1

直接加就行：
datetimepicker1.Date:=datetimepicker1.Date+1;

Answer 2

datetimepicker1.Date:=datetimepicker1.Date+1;

Answer 3

ShowMessage(DateTimeToStr(now + 1)) ;

Answer 4

datetimepicker1.Date:=datetimepicker1.Date+1;

Answer 5

incday(YourDate,IncDateCount)即可。

Answer 6

Mydate := Mydate+1;
还会不会给我一点分，我只是来晚了一步而已。