Fórum Datas no Delphi #312544

e a sexta semana do ano 2005 ??? corresponde a que ????

procedure calcularDatas(n,ano:Word);
var
Datainicial,DataFinal:TDate;
resto,fator,diferencaDias:word;
 begin
try
   dataInicial:=encodedate(ano,1,1);
   resto:=trunc(datainicial) mod 7;
   fator:=2;

   case resto of
   0:begin
     diferencaDias:=1;
     end;
   1:begin
     fator:=1;
     diferencaDias:=0;
     end;
   2:begin
     diferencaDias:=6;
     end;
   3:begin
     diferencaDias:=5;
     end;
   4:begin
     diferencaDias:=4;
     end;
   5:begin
     diferencaDias:=3;
     end;
   6:begin
     diferencaDias:=2;
     end;
   end;
   if n > 1 then
     begin
        dataInicial:=DataInicial+((n-fator)*7+diferencaDias);
        datafinal:=dataInicial+6;
     end
   else
     if resto=1 then
        dataFinal:=Datainicial+6
     else
       datafinal:=(dataInicial+diferencaDias-1);
   showmessage(´A Data Inicial é : ´+datetostr(dataInicial)+´ .´+#13+
               ´A Data Final é : ´+datetostr(dataFinal));
except
on econverterror do
  showmessage(´Erro na conversão de datas . Verifique Ano e Semanas´)
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  calcularDatas(strtoint(edit1.text),strtoint(edit2.text));
end;