Calcular los días de un determinado mes

Artículo por Club Developers · 31 diciembre 2005

2301 vistas

Para saber los días que tiene un mes del año en concreto bastará con hacer una llamada a la siguiente función



delphi
  1. function DiasMes(fecha: TDateTime): integer;
  2. var 
  3.   PrimerDiaMes, PrimerDiaMesSiguiente : TDateTime;
  4.   anyo, mes, dia: Word;
  5. begin 
  6.   DecodeDate( fecha, anyo, mes, dia );
  7.   primerDiaMes := EncodeDate(anyo, mes, 1);
  8.   primerDiaMesSiguiente := IncMonth(primerDiaMes, 1);
  9.   result := Round(primerDiaMesSiguiente - primerDiaMes);
  10. end;