Saber semanas de un mes

[ignasi]

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

[marcoszorrilla]

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

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.

[ignasi]

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.