S Shepherd Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #1 TDataTime上日期加上N天后是几月几号阿 最好详细点，有源码 在下菜鸟一个 请各位多多指教
2 203010 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #2 用procedure DecodeDate(Date: TDateTime var Year, Month, Day: Word);
J j_shen2000 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #3 procedure TForm1.Button1Click(Sender: TObject); var nextdt:tdate;year,mon,day:word; begin nextdt:=dt.Date+10; decodedate(nextdt,year,mon,day); edit1.Text:=inttostr(year); edit2.Text:=inttostr(mon); edit3.Text:=inttostr(day); end;
procedure TForm1.Button1Click(Sender: TObject); var nextdt:tdate;year,mon,day:word; begin nextdt:=dt.Date+10; decodedate(nextdt,year,mon,day); edit1.Text:=inttostr(year); edit2.Text:=inttostr(mon); edit3.Text:=inttostr(day); end;
S Shepherd Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #4 To j_shen2000： 你的加10就是表示的10天吧？
2 203010 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #5 TDatetime是Double型，整数位是日期，小数位是时间
Z zhukewen Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #7 delphi里的日期很简单，其实就是一个实数， 整数部分表示从1899年12月30日开始以来的天数， 小数部分表示占一天的比例，例如： formatdatetime('yyyy"年"mm"月"dd"日"hh"时"nn"分"ss"秒"',1.5) 返回 '1899年12月31日12时00分00秒') 所以你可以对日期型变量进行 + - * / 运算。
delphi里的日期很简单，其实就是一个实数， 整数部分表示从1899年12月30日开始以来的天数， 小数部分表示占一天的比例，例如： formatdatetime('yyyy"年"mm"月"dd"日"hh"时"nn"分"ss"秒"',1.5) 返回 '1899年12月31日12时00分00秒') 所以你可以对日期型变量进行 + - * / 运算。
