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