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

[havok]

var k:word;
.....
k:=Strtoint(s);
d1:= EncodeDateMonthWeek(k, 3, 4, 7);
.....

Word Целочисленный тип, поддерживающий значения от 0 до 65535.

[Demien]

Туплю... Поспешил с вопросом...

  d1:= EncodeDateMonthWeek(StrToInt(s), 3, 4, 7);
  d2:= EncodeDateMonthWeek(StrToInt(s), 10, 4, 7);

И все работает!

[uberchel]

Ну дык Word цифровое значение имеет как и integer;

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