J Johnny_du Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-06 #2 用IncAMonth函数既可。 procedure TForm1.Button1Click(Sender: TObject); var wdYY,wdMM,wdDD: Word; begin DecodeDate(Now,wdYY,wdMM,wdDD); IncAMonth(wdYY,wdMM,wdDD,6); ShowMessage(DateTimeToStr(EncodeDate(wdYY,wdMM,wdDD))); end;
用IncAMonth函数既可。 procedure TForm1.Button1Click(Sender: TObject); var wdYY,wdMM,wdDD: Word; begin DecodeDate(Now,wdYY,wdMM,wdDD); IncAMonth(wdYY,wdMM,wdDD,6); ShowMessage(DateTimeToStr(EncodeDate(wdYY,wdMM,wdDD))); end;
A aizhuzhu Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-06 #4 now+(平年 365/2 ?? ELSE 366/2)
J Johnny_du Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-06 #5 用IncAMonth函数既可。 procedure TForm1.Button1Click(Sender: TObject); var wdYY,wdMM,wdDD: Word; begin DecodeDate(Now,wdYY,wdMM,wdDD); IncAMonth(wdYY,wdMM,wdDD,6); ShowMessage(DateTimeToStr(EncodeDate(wdYY,wdMM,wdDD))); end;
用IncAMonth函数既可。 procedure TForm1.Button1Click(Sender: TObject); var wdYY,wdMM,wdDD: Word; begin DecodeDate(Now,wdYY,wdMM,wdDD); IncAMonth(wdYY,wdMM,wdDD,6); ShowMessage(DateTimeToStr(EncodeDate(wdYY,wdMM,wdDD))); end;
J Johnny_du Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-06 #7 无需Uses DateUtils，IncAMonth函数位于SysUtils单元中。
S sunnyfairy Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-06 #9 直接用Now + 365/2 最简单，如果不考虑闰年的话。
李 李翔鹏 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-06 #10 delphi IncMonth(now,6); SQL语句 select dateadd(month,6,getdate()) as now
