Ayuda con formula

[[coso]]

Hola paladincubano,

si bien me parece que tienes toda la razon del mundo, creo que la agresividad estaba injustificada. Sobre como resolver tu duda, seria algo como :

Código Delphi [-]
var
       d,m,y : word;
       t : TDateTime;
       s : integer;
begin
       d  := 7*inttostr(ComboBoxSemana.Text);
       m  := inttostr(ComboBoxMes.Text);
       y  := 2000; 
       t  := EncodeDate(y,m,d);
       s  := WeekOf(t);
 end;

es posible que a d le tengas que sumar o restar uno, segun tus necesidades. Saludos.