Ver Mensaje Individual
  #9  
Antiguo 26-10-2005
Julià T. Julià T. is offline
Miembro
 
Registrado: may 2003
Ubicación: en el teclado
Posts: 314
Reputación: 21
Julià T. Va por buen camino
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;
Responder Con Cita