Определение времени в диапазоне

[Mouse123]

Приветствую.

Имеется серия TDateTime. 4 штуки.
1 - определяет начало временного диапазона
2 - определяет конец временного диапазона
3 - определяет начало времени
4 - определяет конец времени

Тоесть, 1 и 2 это некий диапазон, 2 и 3 это время которое находится ( или не находится, или находится частично, как угодно ) в этом диапазоне.
Задача - как можно быстрее посчитать количество времени, которое занимает промежуток 2-3 в диапазоне 1-2. Дата не используется, по этому нужно учесть и 24х часовой период.

Пока получился относительный бред. Считает, но ... порой ошибается))

Буду благодарен за любой хелп))
Давно уже не программил, а тут вот нужно

[Квэнди]

uses dateutils и изучать методы этого модуля )

[Mouse123]

А все бы ничего, но времени в обрез совсем

[Toxa]

var
t1,t2:tdatetime;
res:real;
begin
if 1>3 then
 t1:=1
else
 t1:=3;
if 2<4 then
 t2:=2
else
 t2:=4;
res:=t2-t1;
end;

результат выдается в миллисекундах, вместо 1,2,3,4 подставь свои даты

[Stilet]

SecondsBetween(DateTime2,DateTime3) ; - даст тебе время в секундах. Далее просто получи из них часы минуты, и пр. обычными арифметическими операциями.

[Mouse123]

А что-то не получается

Вот то, что у меня до этого выходило, и оно, в большенстве случаев работает верно... но

function GetTimeInZone (ZoneStart, ZoneEnd, TimeStart, TimeEnd :TTime ):Integer;
var
  ZoneStart_H, // начало зоны
  ZoneStart_M, 
  ZoneEnd_H,  // конец зоны
  ZoneEnd_M,
  TimeStart_H,  // начало времени
  TimeStart_M,
  TimeEnd_H,  // конец времени
  TimeEnd_M,
  buf_1,  // а секунды мне и не нужны :)
  buf_2 : WORD; 
begin
// допустим разбиваем это все ...
  DecodeTime ( ZoneStart  , ZoneStart_H, ZoneStart_M, buf_1, buf_2 );
  DecodeTime ( ZoneEnd    , ZoneEnd_H  , ZoneEnd_M  , buf_1, buf_2 );
  DecodeTime ( TimeStart  , TimeStart_H, TimeStart_M, buf_1, buf_2 );
  DecodeTime ( TimeEnd    , TimeEnd_H  , TimeEnd_M  , buf_1, buf_2 );

  Result := 0;

// если время вне зоны то выходим с нулем
  if TimeStart_H > ZoneEnd_H then exit;
  if TimeEnd_H < ZoneStart_H then exit;
  
// если время меньше начала зоны, то считаем от начала зоны
  if TimeStart_H < ZoneStart_H then
    TimeStart_H := ZoneStart_H;

// если время больше конца зоны, то считаем до конца зоны
  if TimeEnd_H > ZoneEnd_H then
    TimeEnd_H := ZoneEnd_H;

// возвращаем в минутах кол-во часов в зоне
  Result := 60*(TimeEnd_H - TimeStart_H);

// вот тут фигняс полная
// как правильно посчитать разницу минут? Как и часы или так тоже можно?
  if TimeStart_H = TimeEnd_H then
     Result := Result + TimeEnd_M - TimeStart_M
  else
     Result := Result - TimeStart_M + TimeEnd_M;
end;

happy end;

Вобщем все бы ничего, более-менне, но код явно корявый и ... по скольку эта функция для одного промежутка времени вызывается много раз ( для подсчета времени в каждой зоне ), то порой минуты коим-то чудом начинают умножатся на два
Да еще как-то нужно это дело оптимизировать, т.к. выполняется оно раз по 300 в секунду :'( + Еще тьма из SQLа валится. Я плакаю

Господа, подсоблите .. Я вообще рук. отдела, но ввиду наличия программиста в отпуске парюсь вот такой радостью...

[Stilet]

как правильно посчитать разницу минут? Как и часы или так тоже можно?

uses dateutils...
....
 MinutesBetween(Начальная дата-время, Конечная дата-время)

[Mouse123]

А в остальном код мой хоть отдаленно логичен?

[Stilet]

Логичен, но время в Делфи штука капризная. Тут лучше функция ми управлять чем просто вот так к значениям обращаться.

[Mouse123]

Переиначил вот так :

function GetTimeInZone (ZoneStart, ZoneEnd, TimeStart, TimeEnd :TTime ):Integer;
begin
  Result := 0;
  // если время начала больше чем конец зоны, то идем вон
  if TimeStart > ZoneEnd then exit;
  // если время конца меньше начала, то туда-же...
  if TimeEnd < ZoneStart then exit;

  // Если начало меньше начала зоны, т.е. выходит за рамки, то считаем от начала зоны
  if TimeStart < ZoneStart then
    TimeStart := ZoneStart;
// тоже с хвостом
  if TimeEnd > ZoneEnd then
    TimeEnd := ZoneEnd;

 Result := MinutesBetween ( TimeStart, TimeEnd);
end;

Вроди функционирует Главное - чтобы в них дат небыло, иначе начинается котовасия