Como saber los dias que tiene un mes??

[alfredosg19]

Hola, quiero hacer una función para saber los dias que tiene un mes, Febrero 28, Marzo 31, Abril 30.... La verdad es que no sé como hacerlo, he puesto un shomessage con la función y me muestra los dias, dias de la semana, meses.. Sería mejor irle sumando días al date hasta que canvie de mes??. Muchas gracias de antemano.

Saludos.

[alfredosg19]

Hola, ya encontré lo que buscaba y habia muchas referencias, lo busqué antes pero la busqueda no era la adecuada. Pido disculpas por empezar un hilo con un tema tan repetido, lo siento sobre todo porque hay gente hacen el gran favor de responder las dudas y ayunarnos, y si tienen que responder 50 veces a la misma cosa evidementemente se terminarán aburriendo. Bueno pues eso perdón y gracias por vuestra gran ayuda.

[[Lepe]]

Empezado por Alfredo

Bueno pues eso perdón

bah... no te preocupes.

Empezado por Alfredo

y gracias por vuestra gran ayuda.

De nada hombre, para nosotros es un placer haberte ayudado en este hilo

Saludos

[DarkByte]

Código Delphi [-]
function DiasMes(fecha: TDateTime): integer;
var 
   PrimerDiaMes, PrimerDiaMesSiguiente : TDateTime;
   anyo, mes, dia: Word;
begin 
   DecodeDate( fecha, anyo, mes, dia );
   primerDiaMes := EncodeDate(anyo, mes, 1);
   primerDiaMesSiguiente := IncMonth(primerDiaMes, 1);
   result := Round(primerDiaMesSiguiente - primerDiaMes);
end;

Extraido de trucomanía