uses DateUtils;添加引用用函数IncMiliSecond, IncMinute, IncDay, IncMonth, IncYear, IncWeek等实现当前日期时间加上指定日期时间如 svalidate.Date:=incyear(date,3);表示在当前日期上加上3年