Foros Club Delphi - Saber semanas de un mes

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Saber semanas de un mes (https://www.clubdelphi.com/foros/showthread.php?t=8276)

Saber semanas de un mes

Hola a tod@s,
Vereis tengo un problema, estoy con una aplicación y necesito saber cuántas semanas tiene un mes de cualquier año. Es decir, clicando sobre un label con el nombre del mes, saber cuàntas semanas tiene éste.
Si alguien tiene alguna idea de cómo hacerlo os lo agradeceré mucho.
Gracias de antemano,
Ignasi

Prueba esta función, la acabo de crear, por lo que te pido que me digas si va correctamente:

Código:

Function HowManyWeeks(dFecha:Tdate):Integer;

var

nAnno,nMes,nDia:Word;

nDiaUno:Integer;

begin



DecodeDate(dfecha,nAnno,nMes,nDia);

nDia:=1;



nDiaUno:=DayOfWeek(Encodedate(nAnno,nMes,nDia))-1;

  if (nMes = 1) or (nMes = 3) or (nMes = 5) or (nMes = 7) or (nMes = 8) or (nMes = 10) or (nMes = 12) then

    if nDiauno > 5 then

    Result:=6

    else

    Result:=5

  else if (nMes = 4) or (nMes = 6) or (nMes = 9) or (nMes = 11)then

    if nDiaUno = 7 then

    Result:=6

    else

    Result:=5

  else if nMes = 2 then

    if Not IsLeapYear(nAnno) And (nDiaUno = 1) then

    Result:=4

    else

    Result:=5;





end;

Un Saludo.

Hola Marcos,

Ante todo muchísimas gracias por tu rápida respuesta, he estado probando la función que me pasaste y sí, funciona correctamente devolviéndome las semanas por mes tal y como necesitaba.
De nuevo muchas gracias por tu interés y rápida respuesta.
Un saludo,
Ignasi.