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;