Показать сообщение отдельно
  #4  
Старый 23.11.2013, 17:25
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от angvelem
Спасибо, а то уже замучился шерстить DateUtils, в поисках чего-либо подходящего.
Ещё можно так узнать последнее воскресенье месяца:
Код:
function GetLastSunday(year, month: Integer): TDateTime;
begin
  Result := IncMonth(EncodeDate(year, month, 1)); // Вычисляем дату первого числа следующего месяца
  Result := Result - DayOfTheWeek(Result); // и отнимаем от него номер дня недели на которое оно приходится
end;

p.s. Единственно смущает непонятная строка "day.setHours(2,0,0,0);" в исходнике на JavaScript.
Ответить с цитированием