Как между двумя датами определить время бодрствования?

[quit]

Dux
1. Потому что мы считаем время бодрствования в день, помноженное на количество дней в промежутке. В случае, когда я вычитаю единицу, это значит что начало(конец) заданного периода входит во период бодрствования, соответственно нам нужно вычесть этот день и прибавить количество минут бодрствования, которые вошли в заданный период начала(конца). Как то так.

2.Не совсем, у тебя я так понял не обязательно именно одни сутки, может быть и несколько.

Будешь думать или тебе написать оставшийся кусок?

[Dux]

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

Dux
1. Потому что мы считаем время бодрствования в день, помноженное на количество дней в промежутке. В случае, когда я вычитаю единицу, это значит что начало(конец) заданного периода входит во период бодрствования, соответственно нам нужно вычесть этот день и прибавить количество минут бодрствования, которые вошли в заданный период начала(конца). Как то так.

2.Не совсем, у тебя я так понял не обязательно именно одни сутки, может быть и несколько.

Будешь думать или тебе написать оставшийся кусок?

1. Полнял, спасибо
2. Если не затруднит, был бы очен благодарен за последнее условие. Проще будет разобраться

[quit]

держи

var
  d1, d2: TDateTime;
  t1, t2: TTime;
begin
  t1 := StrToTime('07:30:00');
  t2 := StrToTime('23:30:00');
  d1 := StrToDateTime('10.09.2010 07:15:00');
  d2 := StrToDateTime('15.09.2010 14:15:00');
//когда время бодровствования входит во время начала и конца
  if ((DateOf(d1)+t1)>d1)and((DateOf(d2)+t2)<d2) then
    ShowMessage(IntToStr(DaysBetween(d2,d1)*MinutesBetween(t2,t1)))
  else
//когда входит только в начало
    if (DateOf(d1)+t1)>d1 then
      ShowMessage(IntToStr((DaysBetween(d2,d1)-1)*MinutesBetween(t2,t1) + MinutesBetween(d2,DateOf(d2)+t1)))
  else
//когда входит только в конец
    if (DateOf(d2)+t2)<d2 then
      ShowMessage(IntToStr((DaysBetween(d2,d1)-1)*MinutesBetween(t2,t1) + MinutesBetween(d1,DateOf(d1)+t2)))
  else
//когда входит и туда, и туда :)
      ShowMessage(IntToStr((DaysBetween(d2,d1)-2)*MinutesBetween(t2,t1) + MinutesBetween(d2,DateOf(d2)+t1)+ MinutesBetween(d1,DateOf(d1)+t2)))

end;

[Dux]

Спасибо, огромное!

[Dux]

Quit, есть вопрос, если поставить

t1 := StrToTime('07:30:00');
t2 := StrToTime('23:30:00');
d1 := StrToDateTime('15.09.2010 22:40:00');
d2 := StrToDateTime('16.09.2010 13:40:00');

Количество минут выдает " - 1500". Подскажите, где ошибка закралась?