[Дюша]

Подскажите, как в delphi 7 запихать строку со временем '12:00:00' в переменную Tdatetime?
мне нужно узнать что время сейчас > 12:00:00
помещаю в переменную tdatetime strtotime('12:00:00') и сравниваю с now.
В 12:00:00 они почему-то не равны. Что я делаю не правильно?

[Страдалецъ]

Функция Now возвращает Дату и Время в одном флаконе, поэтому и не получается. Сравнивайте только время от Now:

Код:

if TimeToStr(Now) = '21:38:30' then

[lmikle]

Или:

Код:

if TimeOf(Now) > 1/2 Then ...

[Дюша]

if TimeToStr(Now) = '21:38:30' then
так не получится, т.к. мне нужно узнать что время сейчас > 12:00:00, а со строками так не прокатит.
lmikle
Delphi почему-то ругается на TimeOf

[dr. F.I.N.]

Код:

uses
  DateUtils;

Result := CompareTime(aTame, bTime); // boolean

[Дюша]

О, спасибо. Так работает. Только там не boolean а TValueRelationship.

[dr. F.I.N.]

Сообщение от Дюша

О, спасибо. Так работает. Только там не boolean а TValueRelationship.

Извини По памяти написал... значит подводит