请问两个edit中输入日期,如何取出两个日期差几天,急! 谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var Date1,Date2:TDateTime; i:real;begin... Date1:=Now; Date2:=StrToDate('2001-11-10'); i:=Int(Date1-Date2);//i就是2个时间差的天数 edit1.text:= 'i';//end; 日期格式设为yyyy-mm-dd ,后由年、月、日的差推算。 procedure TForm1.Button1Click(Sender: TObject);var Date1,Date2:TDateTime; i:real;begin Date1:=Now; Date2:=StrToDate('2001-11-10'); i:=Int(Date1-Date2);//i就是2个时间差的天数 edit1.text:=floattostr(i);//end; 那我在edit1和edit2里输入怎么就不行呢?datetostr(edit1.text-edit2.text),给出的不是数字是个日期型的东东 uses DateUtils;DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)) procedure TForm1.Button1Click(Sender: TObject);var Date1,Date2:TDateTime; i:real;begin Date1:=strtodate(edit1.text); //必须是2003-11-10这种 Date2:=StrToDate(edit2.text); i:=Int(Date1-Date2);//i就是2个时间差的天数 edit1.text:=floattostr(i);//end; 求教高人,关于Delphi 收发E-Mail的问题 请问在FastReport中如何控制打印的偏移量,请大家进来出出主意,谢谢 我是新手~~~~请问DELPHI好用否~~?? 如何将delphi程序最小化到系统托盘中? 关于IntraWeb的怪问题 请教:关于程序性能的问题 找lotus notes 教程书 CSDN好大的BUG!丢脸啊! 关于打印的问题,请指教! Delphi能直接读取文本文件来获取字符吗?如能用什么方法?? 靠!!感觉自己是个正值的人进来看看!! 有谁知道*.ime及*.mb文件的格式?
Date1,Date2:TDateTime;
i:real;
begin
...
Date1:=Now;
Date2:=StrToDate('2001-11-10');
i:=Int(Date1-Date2);//i就是2个时间差的天数
edit1.text:= 'i';//
end;
var
Date1,Date2:TDateTime;
i:real;
begin Date1:=Now;
Date2:=StrToDate('2001-11-10');
i:=Int(Date1-Date2);//i就是2个时间差的天数
edit1.text:=floattostr(i);//
end;
datetostr(edit1.text-edit2.text),给出的不是数字是个日期型的东东
var
Date1,Date2:TDateTime;
i:real;
begin Date1:=strtodate(edit1.text); //必须是2003-11-10这种
Date2:=StrToDate(edit2.text);
i:=Int(Date1-Date2);//i就是2个时间差的天数
edit1.text:=floattostr(i);//
end;