FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
Última edición por marcoszorrilla fecha: 16-03-2004 a las 18:39:29. |
#3
|
|||
|
|||
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. |
|
|
|