咨询两个函数！

[yangzong20]

咨询两个函数！

第一个是两个时间相减的函数例如

2011-1-1 12:30:00 和 2011-1-1 14:00:00 这两个相差1.5小时

如何让这两个日期相减得出 1.5


第二个函数 如何让小数直接进位例如

1.3 直接进位成 2


麻烦各位指导一下，小弟在线等待

[随行的太阳]

1、DateUtils
Inchour（）

2、取整和取余

[dinoalex]

var
a,b: TDateTime;
begin
a:= StrtoDatetime('2011-1-1 12:30:00');
b:= StrtoDatetime('2011-1-1 14:00:00');
showmessage(floattostr((b-a)*24)); // 1.5
end;

[zhaozhen2004]

1.
uses dateutils

HoursBetween(strtodate('2011-1-1 12:30:00'),strtodate('2011-1-1 14:00:00),))

[zhaozhen2004]

function RoundEx(R: Real): Int64;

begin

Result:= Trunc(R);

if Frac(R) >= 0.3 then

Result:= Result + 1;

end;

[dinoalex]

procedure TForm1.Button1Click(Sender: TObject);
function fun1(d: double): double;
begin
if (d - round(d))<>0 then
result:= trunc(d)+1
else result:= trunc(d);
end;
begin
showmessage(floattostr(fun1(1.000001)));
end;

[lw19860412]

问题1答案：
var
a,b: TDateTime;
begin
a:= StrtoDatetime('2011-1-1 12:30:00');
b:= StrtoDatetime('2011-1-1 14:00:00');
showmessage(floattostr((b-a)*24)); // 1.5
end;
问题2答案：
函数名: ceil 　　用 法: double ceil(double x); 　　功 能: 返回大于或者等于指定表达式的最小整数 　　头文件:math.h

[lw19860412]

上面头文件math,虽说ceil是C语言函数，但是DELPHI也能使