急!急!急!一个巨菜的问题:如何求得两个时间之间相差几分钟,如:17:33:22和17:56:35??? SQL Server的datedepart函数,可以比较两个时间的 年,月,日,时,分,秒... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用两个datetime变量分别取得要比较的两个值,然后相减,取得小数部分 var UseTime :Real; iUseTime :Integer; iDay,iHour,iMin,iSec :Integer; UseTime := (FirstTime - NextTime) * 3600 * 24; iUseTime := Round(UseTime); //天数 iDay := iUseTime div (60*60*24); //小时 iHour := iUseTime div (60*60); //分钟 iMin := iUseTime div 60; //秒 iSec := iUseTime; FormatDatetime('H"小时"M"分"S"秒"Z"毫秒"',Frac(Date1-Date2)); var a,b:ttime; h1,h2,m1,m2,s1,s2,ms1,ms2:word;c:real;begin a:=strtotime('17:35:55'); b:=strtotime('17:38:55'); decodetime(a,h1,m1,s1,ms1); decodetime(b,h2,m2,s2,ms2); edit1.Text:=floattostr(abs(m2-m1));end; xe2怎么没有图形编辑器 用indy组件能不能直接上传文件到服务器? 时间相减得到分钟数 用ODAC如何取得一个表的字段类型、长度、是否非空 delphi中如何处理一个从C++写的函数库 Delphi是什么?能做什么? 数组的赋值方法,可以一次给数组赋值(多个值) 怎么样可以使菜单做成XP风格的 奇怪,奇怪,一个关于TNMUDP的问题 请问在DELPHI中能否不用任何数据组件而进行数据库处理? 一个关于报表的简单问题 怪!!!!老鱼,快来救命
iUseTime :Integer;
iDay,iHour,iMin,iSec :Integer;
UseTime := (FirstTime - NextTime) * 3600 * 24;
iUseTime := Round(UseTime);
//天数
iDay := iUseTime div (60*60*24);
//小时
iHour := iUseTime div (60*60);
//分钟
iMin := iUseTime div 60;
//秒
iSec := iUseTime;
h1,h2,m1,m2,s1,s2,ms1,ms2:word;
c:real;
begin
a:=strtotime('17:35:55');
b:=strtotime('17:38:55');
decodetime(a,h1,m1,s1,ms1);
decodetime(b,h2,m2,s2,ms2);
edit1.Text:=floattostr(abs(m2-m1));
end;