
15.12.2011, 11:12
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
var
s1, s2, s: String;
begin
s1:='08:30';
s2:='20:30';
s:='10:50';
if (StrToTime(s)>=StrToTime(s1)) and (StrToTime(s)<=StrToTime(s2)) then
ShowMessage('ok');
end;
__________________
Пишу программы за еду.
__________________
|