Узнать месяц по номеру недели

[nowmax]

Добрый день ув. Форумчане
Собтвенно появилась надобность узнать по номеру недели - месяц (в каком либо году),

и вот даже не знаю как это все организовать.
Привязать к календарю, и там каким то образом считать недели...?

вообщем мозг зашел в тупик)
Может у кого есть какие предложения или готовые решения данной проблемы?

заранее спасибо!

[Манжосов Денис :)]

Можно делать проверку case. К примеру

var
  Week: byte;
  Month: string;
begin
case Week of
 1..3: Month := 'January';
 3..5: Month := 'February';
 // И так далее

[Toxa]

uses dateutils;
var i:integer; dt:tdatetime;
begin
i:=23;//номер недели
dt:=strtodate('01.01.2009');
dt:=incdays(dt,i*7); // прибавляем кол-во дней в кол-ве недель
monthof(dt);//не помню что возвращает

[Stilet]

Все еще проще:

var d:TDateTime;
begin
 d:=EncodeDateWeek(2009,<Номер недели с начала года>);
 caption:=FormatDateTime('mmmm',d);
end;