读书人

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

发布时间: 2012-02-14 19:19:19 作者: rapoo

关于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以后再使用 ');

读书人网 >.NET

热点推荐