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

[Dux]

Пытаюсь решить, исходные данные такие:
1-я дата/время 10.09.2010 03:15:00
2-я дата/время 15.09.2010 14:15:00

Человек просыпается в 07.30.00, ложиться спать в 23.30.00

Необходимо определить время бодрствования в минутах между первой и второй датой.

Может кто сталкивался?

[quit]

есть системный юнит называется DateUtils. Там все подобные функции есть.
Делаешь цикл от и до , и оперируешь нужными функциями.

[Dux]

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

есть системный юнит называется DateUtils. Там все подобные функции есть.
Делаешь цикл от и до , и оперируешь нужными функциями.

По поводу DateUtils в курсе. Как определить время между датами тоже разобрался, но решить задачу пока не выходит...

[quit]

Что именно не выходит?

[Dux]

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

Что именно не выходит?

Пока сама концепция подсчета. 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 03: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)));
end;

[Dux]

Спасибо большое, буду проверять

[Dux]

Quit, 2 вопроса

1. Почему ShowMessage(IntToStr((DaysBetween(d 2,d1)-1) - вычитается единица?
2. Последнее условие - это когда 1-я и 2-я дата находится в промежутке одних суток (времени бодрствования)?

[Sanprof]

У меня вот так работает

var
  r, n, s: Real;
  DateStart, DateEnd: TDateTime;
  Date1, Date2: TDate;
  Time1, Time2: TTime;
  TimeW, TimeS: TTime;
  T1: TTime;//остаток в начале
  T2: TTime;//остаток в конце
  Tost: TTime;//общий остаток
  Hour, Min, Sec, MSec: WORD;
begin
  t1 := 0;
  T2 := 0;
  Date1 := StrToDate('10.09.2010');
  Time1 := StrToTime('01:30:00');
  Date2 := StrToDate('15.09.2010');
  Time2 := StrToTime('12:00:00');
  TimeW := StrToTime('07:30:00');
  TimeS := StrToTime('23:00:00');
  if (TimeW <= Time1) and (Time1 < TimeS) then
  begin
    t1 := TimeS - Time1;
    Time1 := TimeS;
  end else
  begin
    Date1 := Date1 - 1;
    Time1 := TimeS;
  end;
  if (TimeW <= Time2) and (Time2 < TimeS) then
  begin
    t2 := Time2 - Timew;
    Date2 := Date2 - 1;
    Time2 := TimeS;
  end else
  begin
    Date2 := Date2 - 1;
    Time2 := TimeS;
  end;
  DateStart := Date1+Time1;
  DateEnd := Date2+Time2;
  Tost := t1 + t2;
  DecodeTime(Tost, hour, min, sec, msec);
  r := MinutesBetween(DateStart, DateEnd);
  n := MinutesBetween(TimeW, TimeS);
  S := (Trunc(r/n))*n;
  ShowMessage(floatToStr(s+60*hour+min));

[Dux]

Sanprof. Спасибо за ваш труд, вечером буду разбираться