Показать сообщение отдельно
  #2  
Старый 23.11.2013, 16:58
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Если я правильно понял, то функция должна вернуть последнее воскресенье месяца в заданном году, как дату?
Тогда так можно:
Код:
function GetLastSunday(Year: Integer; Month: Integer): TDate;
begin
 try
  Result := EncodeDayOfWeekInMonth(Year, Month, 5, 7);
 except
  Result := EncodeDayOfWeekInMonth(Year, Month, 4, 7);
 end;
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием