calcular el nro de dias, desde una fecha hasta la actual.

[jhonny]

Empezado por migvaz5

se que es un poco tonto pero funciona

Pues no, no es un procedimiento tonto, de hecho y asi este repetido, es lo que abraham, necesitaba.
Pero una cosa, señores abraham y migvaz5, usen las etiquetas Delphi, por favor... para que sea mas legible su codigo.

[defcon1_es]

Para calcular el número de dias transcurridos entre dos fechas, basta con restar la menor a la mayor, porque TDateTime, al fin y al cabo es un Double, donde la parte entera corresponde a la fecha y la parte decimal corresponde a la hora:

Código Delphi [-]
function NumeroDias(const fecha1, fecha2: TDateTime): String;
begin
  if fecha1 < fecha2 then
    Result := IntToStr(Trunc(fecha2 - fecha1))
  else
    Result := IntToStr(Trunc(fecha1 - fecha2));
end;

[abraham]

todo el mundo me dice eso, me puedes orientar , ha y disculpe la ignorancia

[jhonny]

Empezado por abraham

todo el mundo me dice eso, me puedes orientar , ha y disculpe la ignorancia

Cuando estés escribiendo, selecciona el codigo y presiona el botón con el icono de Delphi... asi:

http://neftali.clubdelphi.com/images...axisDelphi.png