Сравнение времени

[POX]

Блин проблема заключается в следующем,- дельфи почему то не правильно сравнивает время...
т.е. сначала происходит считываниe параметров времени(которые надо, т.е. время начала и время конца( считывает он все по отдельности, а затем энкод))
пробывал выводить через showmessage, параметры считывает верно, т.е. время начальное и конечно он показывает правильно, но условие now>Tначала and Now<Tконца, в упор выполнять не хочет...
В чем может быть проблема?? делфи не умеет сравнивать время???

[goblinyara]

хмм.... а в чём дело? приведи к строкам TimeToStr(now) и уже потом строки и сравнивай любым способом....

[POX]

проблема в том, что строки можно сравнивать только на = и <>, а надо что бы сравнение шло в интервале, т.е. есть таймер, который должен срабатывать через определенный интервал в определенно диапазоне времени...допустим надо чтобы сообщение выпригавало с 17.00 до 18.30 а если компьютер включат, допустим в 17.10, то программа уже работать не будет.... по этому надо сравнивать именно время,( разбиение на часы, минуты тоже нельзя, т.к. если надо чтобы программа работала с 17.55 до 18.25, то получится условие что часы1>=17 и минуты>55 и минуты2<30 что противоречит минутам >55...) в опщем извините за мой корявый, но думаю идею поняли

[goblinyara]

хмм... приведи к строке, оставь только цифры в строке, в том порядке в котором идут, приведи к Integer и сравнивай... если нужен код - напишу, просто самому это не так уж и сложно будет реализовать....

[POX]

я так понимаю будет что-то типа
readln(start);
readln(stop);

strtoint(start);
strtoint(stop);



а теперь вопрос как время(now) привести к интеджеру??
если учесть что формат времени hh:mm:ss:ms


PS Now В формате TDtetime И сравгниваться с интеджером конечно же не хочет

[goblinyara]

хмм.... как привести....

function time_to_integer(const MyTime: TDateTime):integer;
var StrTime1,StrTime2: string;
     i: integer;
begin
  StrTime1:=TimeToStr(Now);
  StrTime2:='';
  for i:=1 to length(StrTime1) do
    if not (StrTime1[i] = ':') then StrTime2:=StrTime2+StrTime1[i];
  Result:=StrToInt(StrTime2);
end;

на выходе функции - числовое представление... то есть 18:25:32:142 будет выглядеть как 182532142... и вот их и сравнивайте... ну а уж откуда вы берёте start и stop - решайте сами=)

[Ntlegend]

пытаемся осмыслить корявый и не красивый, но работающий код:

if (FloatToStr(Time)>FloatToStr(StrToTime('17:00:00')))or
   (FloatToStr(Time)<FloatToStr(StrToTime('18:30:00')))
 then ShowMessage('Текущее время '+TimeToStr(Time));

ты по окуратнее.. ато и папой станешь если так расслабяться после экзаменов будешь.. а там думать уже прийдётся постоянно

[goblinyara]

хмм.... Ntlegend, не додумался всё-таки вредно после экзаменов думать - ни к чему хорошему не приводит

[POX]

Сообщение от Ntlegend

пытаемся осмыслить корявый и не красивый, но работающий код:

if (FloatToStr(Time)>FloatToStr(StrToTime('17:00:00')))or
   (FloatToStr(Time)<FloatToStr(StrToTime('18:30:00')))
 then ShowMessage('Текущее время '+TimeToStr(Time));

ты по окуратнее.. ато и папой станешь если так расслабяться после экзаменов будешь.. а там думать уже прийдётся постоянно

Идеальное решение)) спасибо большое

[evg_m]

Delphi7 Dateutils CompareDateTime

F1 datetime routines CompareDateTime