Нужен элегантный алгоритм. Работа с датами.

← →
BorisKB © (2003-05-16 12:26) [0]

Сколько дней из заданного месяца (дан месяц и год) попадает в интервал дат.
Алгоритм должен учитывать все возможные варианты.
0 дней. полный месяц. Х дней.
Ничего стоящего в голову не приходит. Только куча IF-ов. Не красиво так. Как бы их (if-ы) минимизировать..........

← →
Mystic © (2003-05-16 12:30) [1]

1. Найди пересечение двух интервалов (месяц и твой интервал)
2. Если интервалы не пересекаются, то 0 дней.
3. Вычти из конца полученного интервала его начало и добавь один.

← →
VMcL © (2003-05-16 12:36) [2]

Delphi help: date/time routines

← →
BorisKb © (2003-05-16 12:50) [3]

Даааааааа. А я надеялся...........
Ответы конечно.... Я не спрашиваю - как сделать. Я спрашиваю как элегантно сделать?

← →
Leshiy © (2003-05-16 12:56) [4]

Код давай.

← →
Mystic © (2003-05-16 12:56) [5]

Єлегантно это без операторов if ?

Каким образом задан интервал?

DateStart := Max();
DateFinish := Min();
if DateFinish < DateStart
then Result := 0
else Result := Round(DateFinish - DateStart)

2, ну 4 if это по твоему много ?
uses DateUtils; ........... if BeginDateInterval < StartOfAMonth(Y, M) then BeginDateInterval := StartOfAMonth(Y, M); if EndDateInterval > EndOfAMonth(Y, M) then EndDateInterval := EndOfAMonth(Y, M); DC := DaysBetween(BeginDateInterval, EndDateInterval) + 1;

Нужен элегантный алгоритм. Работа с датами. Найти похожие ветки