CuantosDomingosTieneunMes

[Rodo_Rodo]

//*Esta Parte me Permite Hallar Los Dias de Un Determinado Mes

function DiasMes(fecha: TdateTime): integer;
var
mes,anno : integer;
begin
mes:=StrToInt(formatDateTime('mm',fecha));
anno:=StrToInt(formatDateTime('yyyy',fecha));
case mes of
2: if IsLeapYear(anno) then
Result:=29
else
Result:=28;
1,3,5,7,8,10,12: Result:=31;
4,6,9,11: Result:=30;
end;
end;

//** La Funcion Me Indica si una Fecha En Particular Es Domingo

function SiEsDomigo(Fecha_:Variant): integer;
begin
if DayOfWeek(Fecha_)=1 then Result:=0
Else Result:=1;
End;

//* Ahh Y Esta me arroja la Cantidad De Domingos

function DomingosMes(Fechita:Variant): integer;
Var
FechaCreada,xx:String;
I,NDomingos:Integer;
begin
xx:=DateToStr(Fechita);
NDomingos:=0;
For I:=1 to DiasMes(Fechita) Do
Begin
FechaCreada:=IntToStr(i)+'/'+copy(xx,4,7);
If SiEsDomigo(StrToDate(FechaCreada)) = 0 Then
NDomingos:=NDomingos+1;
End;
Result:=NDomingos;
End;
//*Prueba el Codigo en este boton Te Sorprenderas :)

procedure TForm1.Button1Click(Sender: TObject);
Var
I,NDomingos:Integer;
FechaCreada,xx:String;
begin
Label1.Caption:=IntToStr(DiasMes(DateTimePicker1.Date));
Label2.Caption:=IntToStr(DomingosMes(DateTimePicker1.Date));
end;

//Gracias a Todos Por las observaciones byyy

[ContraVeneno]

Bienvenido al foro Rodo

te recomiendo que leas este enlace (http://www.clubdelphi.com/foros/guiaestilo.php) y creo que este otro (http://www.clubdelphi.com/foros/showthread.php?t=10003) ayudará a que tu mensaje se vea mejor. Es decir, si encierras tu mensaje entre comandos
"[ Delphi ]" todos podremos entender mejor la función.

Ahora bien, no tengas miedo de expresar tus ideas hombre, algún comentario no estaría de más :cool:

Saludos y gracias por compartir tu función con el foro.

---------edito-----------
vaya, Jonnhy se me ha adelantado en la modificación... espera... yo no puedo porque no soy moderador, jojojo

[jhonny]

Gracias por el aporte Rodo_Rodo, pero por favor procura usar las etiquetas DELPHI, para que este tipo de códigos se entiendan mejor, BIENVENIDO!!!, te recomiendo leas la Guia de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).

Ahhh, por favor la próxima vez describe un poco, que es lo que estas haciendo, pues en este caso en particular alguien puede creer que estas preguntando algo.

[jhonny]

Jajaja, Te adelante en la edición, pero luego te adelantaste en la bienvenida :D :D :D, si no hubiera sido por

yo no puedo porque no soy moderador, jojojo


Seguramente también me hubieras ganado :D.