Rango de Semanas en un mes
Hola a todos
Como puedo obtener los rangos de las semanas de un mes X. por ejemplo mes de agosto tiene 5 semanas (1-5, 6-12, 13-19, 20-26, 27-31), eso es lo que quiero saber donde empieza y termina digamos la semana 1 que seria del 1 de agosto al 5 de agosto. Me pueden dar ideas por favor, que funciones de fechas debo usar mas o menos. Lo unico que he encontrado es saber cuantas semanas tiene un mes con la función WeekOfTheMonth. Muchisimas gracias por adelantado y que tengan un bonito dia. |
No creo que tengas una función que te dé el resultado que buscas.
Tendrás que hacerla tu. El principio de dicha función sería más o menos el siguiente: 1. Todos los meses empiezan por 1 :D ! (Trivial). 2. Saber el día de la semana del primer día del mes que buscas. (Función DayOfTheWeek). Tendrás que componer tu la fecha del primer mes que buscas con Encode. 3. A 8 le restas el resultado obtenido y tendrás el día final de la 1a semana. 4. A partir de ahí puedes obtener facilmente el resto de las semanas, teniendo en cuenta el número máximo de días que tenga el mes que estes tratando. Espero haberte ayudado. Saludos ;) |
Muchisimas gracias Gluglu, asi me ha quedado con tu explicación, solo funciona para el mes de agosto, ya es facil aumentar para que funcione cualquier mes.
Dime que te parece o puedo mejorarlo. |
Creo que se podría optimizar de esta manera :
No lo he probado, por lo que no te puedo asegurar si funciona correctamente. :o |
Muchas gracias de nuevo, ya lo he probado y funciona perfectamente, solo faltaba esto.
fechaFin := EncodeDate(2007, 08, 8-DayOfTheWeek(fechaIni)) un ; al final fechaFin := DayInc(fechaIni,7); -> fechaFin := IncDay(fechaIni,6); Saluditos |
Aquí te dejo una función que recibe un año y mes cualquiera y te va mostrando los rangos de las semanas del mes:
Saludos... |
Muchas gracias a ti también maeyanes.
|
La franja horaria es GMT +2. Ahora son las 14:11:25. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi