比如起始时间是2007-11-05 23:00
现在我加上2.5小时
时间就到了2007-11-06 01:30如何做到?
现在我加上2.5小时
时间就到了2007-11-06 01:30如何做到?
解决方案 »
- 封装在bpl里的ado提示:missing connection or connecttionstring
- 向memo发送一个ctr+回车消息
- select distinct field_1 from table_1 ,开发环境下正常,转到例外一台机器上运行查询出table_1中的所有记录,奇怪!!
- 该如何在主窗体 show 完之后。。。
- 如何改变一下文件的文件名??
- tee chart pro5如何汉化?
- ==TQuery能定义文件名的变参吗?====
- 动态生成写入DLL之2
- 上海嘉定区封浜附近有没有Delphi培训的地方。家教的也可以。
- CreateRemoteThread调用函数中如何使用TBitmap?
- 郁闷的问题.Delphi与JavaScript[十六进制转CHAR]
- 急!关于Delphi浮点数小数位数显示问题
要实现你想要的结果,可以使用其中的IncMinute函数:
IncMinute(150); //2.5H=150m
D := IncMinute(D, 150);
可以进行加减的!
var
Mytime:Tdatetime;begin
Mytime:=strtotime('2007-11-05 23:00 ');
Mytime:=Mytime + 2.5/24; //小时要除以24,它是以一天的几分之几来表示
(DateTimetostr(Mytime));
end;
Mytime:Tdatetime;
begin
Mytime:=StrToDateTime('2007-11-05 23:00 ');
Mytime:=Mytime + 2.5/24;
showmessage(DateTimetostr(Mytime));
end;用IncMinute也可以,麻烦了点
uses DateUtils; //引用DateUtils
var
Mytime:Tdatetime;
tt:int64;
begin
Mytime:=StrToDateTime('2007-11-05 23:00 ');
tt:=trunc(2.5*60) ;
IncMinute(Mytime,tt);
showmessage(DateTimetostr(Mytime));
end;
edongxu 和 chris_mao