参看TDateTime __fastcall operator int(),把时间转成整数(12/30/1899开始的秒数)。
解决方案 »
- 成都哪位有"Delphi面向对象编程思想"刘艺的这本书?二手.卖我一本.
- 在如何測得某一个AP是否处于idle状态? 转自delphi.ktop.com.tw上面的难题,有没有朋友能解答呢?
- 请DELPHI兼职教师
- 高分求助:为什么98下TAPI.LineGetID可以取得wave/out的Modem设备号,在2000下就不行了?
- 请问有没有将按钮,EDIT,CHECK等控件美化成XP形式的控件呢?
- delphi程序员
- 如何实现每过一年数据库中的年龄字段自动加1
- 如何分割文件
- dx快来看看delphi如何将系统时间转换成UTC时间
- 一个关于Delphi的问题
- 调用某一个form,在form关闭时,想要带出form上的某个控件(如edit1.text)的值给当前调用它的form用?怎么办?
- 请教各位大虾,如何学习Delphi最有效率?
CurrentTime,ModifyTime:TDateTime;//CurrentTime:当前时间,ModifyTime:修改后的时间
Hour,Min,Sec,MSec:word;//用于时间处理的变量
begin
DecodeTime(CurrentTime,Hour,Min,Sec,MSec);//分解出时间
if Min<5 then//判断分钟是否在5分前
Min:=Min+60;
Hour:=Hour-1;
end;
ModifyTime:=EncodeTime(Hour, Min, Sec, MSec);//组合时间
//数据库操作
query1.sql.text:='select * from DataSet where time>'+''''+ModifyTime+''''+'and time<'+''''+CurrentTime+'''';
//数据库操作
end;
query1.params[0].astime:=time-12.5/60/60;
query1.open;