小弟现在和同学开发一个图书馆管理系统,借书日期和还书日期都可以自动添加,问题是如何计算借书的超期天数?为什么我用日期-日期都不到天数呢?
解决方案 »
- delphi sql 拷贝数据表的问题
- 请教ACCESS中Transform交叉表的问题
- 请教关于mainmenu的问题?
- intraWeb 保存Excel表
- 请问有什么控件能插入字,下拉菜单控件和图片
- 想使用系统时间作一个文件的名字,设置了datetimepicker1的format为‘yyyyMMddHHmmss',保存时不对了。
- 用查询语句时老提示列名无效
- 用Delphi的QuickRep设计主从报表时,如何才能让每条主表纪录都出现在新的一页的页首
- SOS! 关于数据模块的,我头都大了,高手请指点迷津!!
- 请众位高手指点迷津,如何实现数据库的过滤,用RadioGroup 与 Edit 作为查找字段
- 一个关于用http应用高速下载文件的问题,up有分
- 请教一个观念上的问题!
DaysBetween(date1, date2)要先Use DateUtils;
var
day,hour,minute,second,h,m,s:integer;
hh1,mm1,ss1,ms1,hh2,mm2,ss2,ms2:word;
dt1,dt2:TDateTime;
begin
{两个时间差}
dt1 :=StrToDateTime(Edit1.text);
dt2 :=StrToDatetime(Edit2.text);
DecodeTime(dt1,hh1,mm1,ss1,ms1);
DecodeTime(dt2,hh2,mm2,ss2,ms2);
day:=dt1-dt2; file://就日期不能相差,怎么办?
h:=hh1;
m:=mm1;
s:=ss1;
if s<ss2 then
begin
m:=m-1;
s:=s+60;
end;
second :=s-ss2;
if m<mm2 then
begin
h:=h-1;
m:=m+60;
end;
minute :=m-mm2;
if h<hh2 then
begin
day :=day-1;
h:=h+24;
end;
hour :=h-hh2;
edit3.Text :='相差'+IntToStr(day)+'天'+IntToStr(Hour)+'小时'+
IntToStr(minute)+'分'+IntToStr(Second)+'秒';
end;
Date1,Date2:TDateTime;
i:real;
begin
...
Date1:=Now;
Date2:=StrToDate('2001-11-10');
i:=Int(Date1-Date2);//i就是2个时间差的天数
showmessage(floatToStr(i));
end;