R runcow Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #1 [h1]如和计算日期差[/h1]我是初学者，请问如何计算某年某月某日于某年某月某日之间相差几天？ 再把结果输出到Edit.Text中。
J jammi Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #2 edit1.text:=inttostr(date1-date2)
Y yitanhg Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #3 edit1.text:=datetostr(date1-date2);
C chshanghai Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #4 jammi 是错的 应是 edit1.text:=floattostr(date1-date2); 给分吧
D DELPHI鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #5 var Date1,Date2:TDateTime; i:real; begin ... Date1:=Now; Date2:=StrToDate('2001-11-10'); i:=Int(Date1-Date2);//i就是2个时间差的天数 edit1.text:= 'i';// end; GZGZ呵呵
var Date1,Date2:TDateTime; i:real; begin ... Date1:=Now; Date2:=StrToDate('2001-11-10'); i:=Int(Date1-Date2);//i就是2个时间差的天数 edit1.text:= 'i';// end; GZGZ呵呵
