gracias a los dos por las rutinas de para poder sumar la fechas esto me servira para mi tarea. es justo lo que estaba buscando gracias.
en cuanto a la segunda parte perdon por no haber mostrado el codigo lo pense justo despues que envie la pregunta y ya no tube mas tiempo para mostrarlo, pero aki le muestro a ver si me entienden:
Código Delphi
[-]
var presente:tdatetime;
var mes,dia,ano:word;
begin
presente:=now;
decodedate(presente,ano,mes,dia);
fecha1.Caption:=inttostr(dia);
fecha2.Caption:=inttostr(mes);
fecha3.Caption:=inttostr(ano);
if fecha2.Caption<='4' then
begin n:='1';
end else
if ((fecha2.Caption>'4') and (fecha2.Caption<='8')) then
begin n:='2';
end else
if (fecha2.Caption>'8')then begin
n:='3';
end;
en las dos primeras condiciones todo funciona bien, pero cuando el mes supera el numero 9 me parece que toma el valor de 0 (cero) y vuelve a contar desde 1 en ves de 10,11,12 que serian octubre,nov,dic. por lo que no obtengo los resultados a partir del mes 10.
espero entiendan esto.
gracias de nuevo.