Fórum Feriado móvel e Datas Comemorativas #353554

procedure TForm1.Button1Click(Sender: TObject);
var
ordem,diaSemana,mes,ano:Word;
begin
try
  ordem:=strtoint(cbOrdem.Items.Strings[cbOrdem.itemIndex]);
  diasemana:=cbDiaSemana.itemIndex;
  mes:=strtoint(cbmes.Items.Strings[cbmes.itemIndex]);
  ano:=strtoint(edtAno.Text);
  Showmessage(DatetoStr(RetornarData(Ordem,DiaSemana,mes,ano)));
except
  on e:econverterror do
    raise exception.Create(´Erro Na Passagem Dos Parâmetros´);
  end;
end;

function TForm1.RetornarData(ordem,diaSemana, mes,ano:word): Tdate;
var
DataInicio,DataFim:Tdate;
DiaTeste:integer;
DiaFim:Word;
mensagem:String;
begin
 try
   dataInicio:=encodedate(ano,mes,1);
   DiaTeste:=diaSemana - ((trunc(DataInicio) mod 7));
   if diaTeste < 0 Then
     diaTeste:=DiaTeste+7;
   diaFim:=(diaTeste+1)+7*(ordem-1);
   result:=encodedate(ano,mes,diaFim);
 except
  on e:econverterror do
    begin
    case diaSemana of
      0:mensagem:=´Sabado´;
      1:mensagem:=´Domingo´;
      2:mensagem:=´Segunda´;
      3:mensagem:=´Terça´;
      4:mensagem:=´Quarta´;
      5:mensagem:=´Quinta´;
      6:mensagem:=´Sexta´;
    end;
    raise exception.Create(´Erro : Possivelmente esta Mes Não permite´+#13+
    inttostr(ordem)+´ ´+´Semanas , para o Dia da Semana :´+mensagem);
    end;
  end;
end;