convertir fechas a dias

delphi.com.ar · #4 28-08-2003

¿¿El código que me has pasado es exactamente el que estas usando??... No creo que lo sea, pues no compilaría...
Como primer punto, quiero sugerirte que si puedes evitar utilizar datos del tipo Variant, lo evites, como segundo te digo que del 28/05/2003 al día de hoy han pasado 92 días, por lo tanto el tipo de garantía es "Servicios"...

Suponiendo que la fecha ingresada no va a ser mayor que la de hoy, he resumido tu código en esto:

Suponiendo que la fecha ingresada no va a ser mayor que la de hoy, he resumido tu código en esto:

Código:

var
  nDias: Integer;
begin
  nDias := Trunc(Date - defechacompra.Date);

  if nDias <= 90 then
    edtipogarantia.text := 'COMPLETA'

  else if (nDias <= 275) then
    edtipogarantia.text := 'SERVICIOS'

  else
    edtipogarantia.text := 'NINGUNA';
end;

Saludos!