Hola, Caro, ya tenio hizo asi y no funciono. cambie la fecha de mi computadora para 02/11/2010 y no funciono, pues deberia traer True el result y está como false. Ve mi codigo abajo:
Código Delphi
[-]function TFormula.EferiadoFixo(Data: TDateTime): Boolean;
var
ano,mes,dia: word;
diames : String;
dferiado: Array[0..7] of string;
i: integer;
begin
Result := False;
dferiado[0] := '01/01';
dferiado[1] := '21/04';
dferiado[2] := '01/05';
dferiado[3] := '07/09';
dferiado[4] := '12/10';
dferiado[5] := '02/11';
dferiado[6] := '15/11';
dferiado[7] := '25/12';
DecodeDate(Data,ano,mes,dia);
diames := IntToStr(dia) + '/' + IntToStr(mes);
for i := 0 to high(dferiado) do
if diames = dferiado[i] then
Result := True;
end;