Переход с зимнего на летнее время

[Demien]

Возможно в прошлый раз я не совсем правильно описал суть вопроса(хотя может и сам по себе вопрос не актуален...).
Попробую еще раз:

Как определить момент перехода с зимнего времени на летнее а с летнего на зимнее?

[Stilet]

Ну есть же какой-то день перехода? Вот и определяй если сегодня - один из тех дней то переход.

[Demien]

Переход происходит не в фиксированую дату. Каждый год по разному.
На летнее время - последнее воскресенье марта
На зимнее время - последнее воскресенье октября
А как выяснить дату последнего воскресенья ... месяца?

[Stilet]

Смотри в сторону WeekOfTheMonth и иже с ними ( я точно не помню, но из них что-то себе брал когда воскресения ловил)

[Demien]

А можно с этого место поподробней? ))

[Stilet]

А что хелп уже отменили?
Вот всеж там описано :

var dat:TDateTime;
begin
 dat:=EncodeDate(2009,3,1);
 caption:=FormatDateTime('dd mmmm yyyy',IncWeek(dat,4));
end;

В caption будет последнее воскресенье марта.

[Demien]

Даты действительно показывает. Только вовсе не последнее воскресенье месяца. Вне зависимости от выбранного года, месяца число всегда = 29. Как исправить?

[Stilet]

Вот этого я не знаю. Таких проблем не наблюдал и не вникал.

[Demien]

РАЗОБРАЛСЯ!!!! )))

Label1.Caption:= DateToStr(EncodeDateMonthWeek(2009,3,4,7));

Все оказалось предельно просто!!!

[Demien]

Опять запара... ((

var
  dt:TDateTime;
  d1, d2:TDateTime;
  s: String;
begin
  dt:= DateTimePicker1.Date;   
  s:=FormatDateTime('yyyy', dt);     // Взял "год" из даты
  d1:= EncodeDateMonthWeek(2008, 3, 4, 7);
  d2:= EncodeDateMonthWeek(2008, 10, 4, 7);
  Label1.Caption:= DateToStr(d1);
  Label2.Caption:= DateToStr(d2);

Как теперь вместо 2008 вставить значение "s".
Программа ругается на типы данных... (( Говорит что между Word и String ничего общего... Что это вообще за тип такой word? И как его со стрингом подружить? Или с TDateTime?