Obtener Maximo dias del mes en curso

Julià T. · #1 26-10-2005

hola vtdeleon:
el codigo que nos has expuesto, no funcionaria para los meses de diciembre, ni para los dias en que el mes siguiente tuviera menos dias el día en que estamos (por ejemplo 31 de octubre)
haciendo la pequeña corrección queda más o menos así

Código Delphi [-]var
  fecha,tfecha:TDate;
  dia,mes,ano:word;
begin
  fecha:=now;//Aquí asignas la fecha del mes
  DecodeDate(fecha,ano,mes,dia);
  fecha:=fecha-dia+1;//todos los meses tien día 1
  inc(mes);
  if mes >12 then 
  begin
    mes:=1;
    inc(ano);
  end;
  tfecha:=EncodeDate(ano,mes,1);  //para obtener el dia 1 del mes siguiente
  showmessage(copy(DateToStr(tfecha+2-fecha),1,2));
end;

vtdeleon · #2 26-10-2005

Saludos

Cita:

Empezado por Julià T.

no funcionaria para los meses de diciembre

Muy cierto, no existe mes 13

Cita:

Empezado por Julià T.

..ni para los dias en que el mes siguiente tuviera menos dias el día en que estamos (por ejemplo 31 de octubre)

Oops

xavinet · #3 26-10-2005

Hola!!

En www.koders.com, busca DaysInMonth para delphi y si miras el .pas de las JEDI: JclDateTime.pas, puedes bajarte toda la unit o si prefieres te copias la función o funciones necesarias en tu unit.

Hasta pronto gente!