Cita:
|
Empezado por Sr.Scorpion
Eso es lo que tengo implementado.... pero resulta un poco engorroso hacer eso para cada mes... sin contar que si en febrero poner 01/02/2007 hasta 31/02/2007 da error porque febrero llega hasta 28... y asi pasa con los demas meses que tienen 30 y 31 dias..... en fin resulta bastante codigo para hacer tan pequeña cosa
|
Para evitarte eso puedes usar la función :
Código Delphi
[-]function EndOfAMonth ( const Year, Month : Word ) : TDateTime
Un saúdo