一个时间比如2003-05-21加上六个月, DELPHI中该怎么写啊

Question

同标题

Answer 1

IncMonth(strtodatetime(2003-05-21'),6)

Answer 2

用sql语句
select DATEADD(month, 6, '2003-05-21')

Answer 3

并不是真正加6个月，只是"月"加6是吧？这样：var y,m,d:word;
    dt :Datetime;DeCodeDate(strtodate('2003-05-21'), y, m, d);
dt := EnCodeDate(y, m+6, d);dt就是 2003-11-21

Answer 4

to shao528(红雪):
DeCodeDate(strtodate('2003-12-21'), y, m, d);
dt := EnCodeDate(y, m+6, d);
dt=????

Answer 5

这真是高质量的帖子，拜读all！

Answer 6

不知道你要是的哪一种，如果是日期加上六个月进行循环，而年度不变
procedure TForm1.Button1Click(Sender: TObject);
var y,m,d : word ;
begin
  DeCodeDate(strtodate('2003-5-21'), y, m, d);
  m := (m+6) mod 12 ;
  if m = 0 then m:=12 ;
 label1.Caption := DateToStr(EnCodeDate(y, m , d));
end;如果是加上六个月
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := DateToStr(incMonth(StrTodate('2003-5-21'),6));
end;