convertir fechas a dias

[@-Soft]

hola

vamos a suponer que la variable vdias obtiene el resultado de la resta de fechas.


las condicion seria asi:

var
ndias : variant;

ndias := date - defechacompra.date;

if ndias >= 0 and ndias <= 90 then
begin
edtipogarantia.text := 'COMPLETA';
end else
if ndias > 90 and ndias <= 275 then
begin
edtipogarantia.text := 'SERVICIOS';
end else
edtipogarantia.text := 'NINGUNA'; end;
end;

este es el codigo que utilizo para desplegar automaticamente el tipo de garantia.

de vez en cuando si un en equipo ha sido comprado en fechas de 28/05/2003 este despliega el tipo de garantia NINGUNA teniendo que desplegar COMPLETA.

espero que hallas podido comprender .

gracias.