FoxPro/Visual FoxPro - CALCULO DE FECHAS

Hola Amigos

Quiero solicitar el favor si alquguien me puede indicar commo hago para que fox me tome todos los meses de 30 dias a exepcion de febrero de 28.

Lo digo ya que estoy sumando dias a fecha y si la cantidad de dias es mayo que 30 y estamos en un mes de 31 este me tiene en cuente el dia 31 y es no es lo que deseo.

Ej:

18-06-2005 + 45 resp 02-08-2005 && error

18-06-2005 + 45 resp 03-08-2005&&coorecto

De antemano agradezco toda la ayuda posible

Mira me ha pasado algo parecido, utilizo la funcion date() y guardo en variables el dia, y el mes y con una condicion dijo
var_mes= PADL(ALLTRIM(STR(MONTH(DATE()),2)),2,'0') &&El mes actual
var_dia= PADL(ALLTRIM(STR(DAY(DATE()),2)),2,'0') &&El dia actual
var_ano= STR(YEAR(DATE()),4) &&El año actual

if( var_dia<>28 and var_mes=Febrero)

es esta la idea condiciona todos los meses de 30 y los de 31 y con lo de arriba estas sacando el 28 de febrero,

eso es lo que entendi si no es asi hazmelo saber.

saludos

Prueba esto:
sumardias=45
LAFECHA={^2005-06-18}
lanuevafecha=IIF(DAY(lafecha)+MOD(sumardias,30)>30 and MONT(GOMONT(lafecha,INT(sumardias/30)))<>2,GOMO(GOMONT(lafecha,INT(sumardias/30))-DAY(lafecha),1)+1+MOD(DAY(lafecha)+MOD(sumardias,30),30),GOMONT(lafecha,INT(sumardias/30))+MOD(sumardias,30))
?LANUEVAFECHA

he sacado la fecha de compurga de una sentencia pero tengo una variacion de un dia mas o menos, necesito la fecha exacta dia, mes y año de compurga mi problema es que me afectan el mes corto de febrero y los meses largos de 31 dias asi como los años bisiestos