var
Hour, Min, Sec, MSec : Word;
begin
DecodeTime(Now(), Hour, Min, Sec, MSec);
ShowMessage(Floattostr(Hour + Min/60));
end;
Hour, Min, Sec, MSec : Word;
begin
DecodeTime(Now(), Hour, Min, Sec, MSec);
ShowMessage(Floattostr(Hour + Min/60));
end;
解决方案 »
- 请教ADOQuery1中字段名问题
- 如何使用DBGridEh实现自动设置删除超长文本显示不下的多余部分,并以省略号(…)代替
- DLL注入成功后,请教如何模拟鼠标点击,以及模拟按键!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 在com+类中怎么样定义一个返回数据集的函数?
- 哪种控件可以有这种特性:文本输入、画有行线像作业本一样?
- 请问DBGRID中的picklist怎么用?
- 怎样实现音量控制大小?? 急救!!!
- IXMLDocument内存泄漏的问题
- 如何用TPrinter控制DBGrid的打印?
- 有人帮我吗?
- [Fatal Error] P_Main.pas(7); File not found:'DsgnIntf.dcu'
- SOS!!大伙救我!!一个简单的报表问题!!
TDateTime本来就是实数形式。
整数部分为1800-1-1以来的天数
小数部分为时间占每天的百分比。
例如:
var t:TDateTime;
t := Now;
ShowMessage(FloatToStr((double(t) - integer(t))*24 ));