首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

关于Delphi的时间比较,该怎么解决

2012-02-14 
关于Delphi的时间比较我现在想要比较早上8.00到晚上20.00和系统时间比对,用IF语句我是这么写的,但是不行啊

关于Delphi的时间比较
我现在想要比较早上8.00到晚上20.00和系统时间比对,  

用IF语句我是这么写的,但是不行啊.希望大家帮帮  

pxks.Caption   :=   TimeTostr(StrToTime( '08:00:00 '));  
xtsj.Caption   :=   FormatDateTime( 'hh:mm:00 ',   now);  
pxjs.Caption   :=   TimeTostr(StrToTime( '20:00:00 '));  
if   (pxks.Caption   <   xtsj.Caption)   and   (pxjs.Caption   >   xtsj.Caption)   then  
begin  
.......  
end  
else  
begin  
Application.MessageBox( '已经超过晚上20点,请明早8.00以后再使用,   '结束 ',   0   +   16);  
end;  

各位大哥,帮帮啊..


[解决办法]
if (Time() > = StrToTime( '08:00:00 ')) and (Time() <= StrToTime( '20:00:00 ')) then
...
else ShowMessage( '已经超过晚上20点,请明早8.00以后再使用 ');

热点排行