en contrar el ultimo dia del mes
hola a todos, en estos momentos estoy desarrollando una aplicación y tengo un pequeño problema con los componentes Tdatetimepicker, tengo una función que me busca el último dias del mes, esta es llamada desde en el evento onChange del componente tdatetimepicker, el codigo es el siguiente:
el problema radica cuando cambio el mes a uno que tiene menos días que el anterior, es decir, de agosto a septiembre. espero haberme hecho explicar y de antemano gracias por todos los aportes que me puedan dar. Estaré atento a ellos...:) |
Busca la funcion DaysinMonth de la unidad dateutils
|
Que crees eduarcol....yo andaba buscando la misma cosa y resulta que DaysInMonth(2) devuelve 31!!!!!!!!!!!!!!! ora si que...bueno...lo correcto es usar DaysinAMonth pasándole el año para que nos calcule los dias de febrero correctamente.
|
No tengo un delphi aquí, pero seguramente 2 es marzo, 1 es febrero, 0 es enero... digo yo, no puedo probarlo ahora.
|
Cita:
Don't worry... yo si tengo delphi a la mano... yo hago al prueba.... ;):D ......... 5 min despues....... Pues ya probe.... y con la funcion DaysInMonth(); y en todos los meses me dio como resultado 31 en cambio con la funcion DaysInAMonth(); si me dio bien la cantidad de dias de cada mes... (incluido 29 en los años bisiestos). EDITO : La funcion DaysInMonth(); recibe como parametro TDateTime y no un entero .... Cita:
pues si devuelve los dias correctos.... ;);):D:D y de la otra funcion... pues no hay problema... DaysInAMonth() aqui van dos parametros... (año,mes) ;);) |
Tienes razón no me había dado cuenta...pero al fin de cuentas resolvimos nuestro problema :)
|
Saludos
Esta funcion devuelve el ultimo dia del mes EndOfTheMonth();
|
colo debes tener en dateutils para ocupar las funciones mencionadas (DecodeDate,DaysInMonth)
yo hice uno con ayuda de los forista algo asi:
si lo que quieres es el puro dia del mes ps es algo como DaysInMonth(datatimepicker.Date)); ami me funciona ala perfeccion espero te sirvaa :) |
La franja horaria es GMT +2. Ahora son las 04:40:41. |
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