¿¿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!