Ayuda con función para detectar días.

[ecfisa]

Hola pabloe9k, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Código Delphi [-]
uses DateUtils;

function CountSameDay(const aYear, aMonth, aDay: Word): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to DaysInAMonth(aYear, aMonth) do
    if DayOfTheWeek(EncodeDate(aYear, aMonth, i)) = aDay then
      Inc(Result);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  mes, anio : Word;
begin
  mes  := 10;
  anio := 2013;
  ShowMessage(Format('El mes %d de %d tiene %d días martes',
    [mes,anio,CountSameDay(anio ,mes, DayTuesday)]));
end;

La función te sirve para cualquier día, lo envio como argumento (aDay), usando las constantes simbólicas declaradas en la unidad DateUtils:

Código Delphi [-]
const
  DayMonday = 1;
  DayTuesday = 2;
  DayWednesday = 3;
  DayThursday = 4;
  DayFriday = 5;
  DaySaturday = 6;
  DaySunday = 7;

Saludos