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.
__________________
Ivan Lora
http://www.arrobasoft.da.ru
Valientes son aquellas personas que triunfan donde otros fracasan.
Bienaventurado los que nada esperan porque jamas seran defraudados.
|