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

[mrac]

Поставлена такая задача: в программе задается временной промежуток От: (ЧЧ:ММ)
До: (ЧЧ:ММ)
Программа должна в данном промежутке времени каждую секунду выполнять некое действие. Как реализовать корректное сравнение времени, учитывая все комбинации временных промежутков?
Например для:
от 13:15 до 17:10
от 15:00 до 00:00
от 15:15 до 14:20
от 13:10 до 13:15
??
Помогите пожалуйста, замучался уже с if..then

[chesnok]

GetTickCount в начале промежутка и в конце. А размер Tick'а узнать - GetSystemTimeAdjustment. За подробдностями - msdn.microsoft.com

[Ghost]

mrac
А почему бы не воспользоваться дмумя таймерами:
1 - каждую секунду проверяет текущее время на принадлежность указанному промежутку и включает/выключает в зависимости от этого второй таймер.
2 - каждую секунду выполняет нужное действие.
В принципе, можно проверку в первом таймере делать и не каждую секунду, а вычислять ее в зависимости, опять-таки, от разницы между текущим временем и началом данного промежутка.
А текущее время определить просто:

var
  DateTime: TDateTime;
  str: string;
  hour, min, sec: integer;
...
  DateTime := Time;
  str  := TimeToStr(DateTime);
  hour := StrToInt(copy(str, 1, 2));
  min  := StrToInt(copy(str, 4, 2));
  sec  := StrToInt(copy(str, 7, 2));
...

[mrac]

Да нет, вы не поняли.. Я как раз так и делаю, как Ghost написал Я хочу разобраться, как правильно, учитывая все ньюансы сравнить текущее время - попадает оно в данный промежуток или нет? Как я написал примеры в первом посте - учитывать надо довольно много вариантов.

И еще: можно было бы конечно просто сравнивать время с заданным и потом, когда они станут равны включить второй таймер, но это не годится, т.к. если программа будет запущена, когда этот интервал уже идет, она соответственно не сработает.

[Ghost]

mrac

сравнить текущее время - попадает оно в данный промежуток или нет

Ну дык напиши функцию, типа такой:

type
  strTime = string[5];
function InTimeSet(tStart, tFinal, tVerify: strTime): boolean;
var
  iStart, iFinal, iVerify: integer;
begin
  iStart  := 60 * (StrToInt(copy(tStart, 1, 2)))  + StrToInt(copy(tStart, 4, 2));
  iFinal  := 60 * (StrToInt(copy(tFinal, 1, 2)))  + StrToInt(copy(tFinal, 4, 2));
  iVerify := 60 * (StrToInt(copy(tVerify, 1, 2))) + StrToInt(copy(tVerify, 4, 2));
  if iStart <= iFinal then
    InTimeSet := (iStart <= iVerify) and (iVerify <= iFinal)
  else
    InTimeSet := (iStart <= iVerify) or  (iVerify <= iFinal);
end;

[mrac]

Да, ночью что-то совсем тупил... утром сел, подумал и написал программку....правда еще только на листке бумаги, проверить не могу

[sflash]

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

mrac
А почему бы не воспользоваться дмумя таймерами:
1 - каждую секунду проверяет текущее время на принадлежность указанному промежутку и включает/выключает в зависимости от этого второй таймер.
2 - каждую секунду выполняет нужное действие.
В принципе, можно проверку в первом таймере делать и не каждую секунду, а вычислять ее в зависимости, опять-таки, от разницы между текущим временем и началом данного промежутка.
А текущее время определить просто:

var
  DateTime: TDateTime;
  str: string;
  hour, min, sec: integer;
...
  DateTime := Time;
  str  := TimeToStr(DateTime);
  hour := StrToInt(copy(str, 1, 2));
  min  := StrToInt(copy(str, 4, 2));
  sec  := StrToInt(copy(str, 7, 2));
...

Да-а-а, а потом говорят что программы на Delphi тормозят. Ну кто же так пишет. А вот так не пробовал?
DateTime : TDateTime;
hour, min, sec, sec100 : Word;
...
DecodeTime(Time,hour,min,sec,sec100);

Ничего общего не замечаешь?