FoxPro/Visual FoxPro - sumar fechas

Hola a todos, agradezco enormemente a la persona q me pueda ayudar con este problemilla.

Deseo saber como puedo hacer para sumar a una fecha mas tiempo, me explico, actualmente programo un software de facturacion donde tengo q registrar pagos del cliente, si hoy es 27/02/2007 y mi cliente me pagara dentro de un mes, como hago para q en un campo llamado vencimiento me aparezca la fecha en la cual el cliente me debe pagar, osea 27/03/2007, espero q de verdad me puedan ayudar con este lio.

De ante mano gracias a todos

Johanna

Puedes hacer que, una vez que guades el campo fecha, realiza una suma como cualquier numero y posteriormente lo guardas en otro campo. (Segun, si sea un tiempo predeterminado).

Ejemplo:

Thisform.fecha.value=date()
Thisform.vence.value=Thisform.fecha.value+30

Suerte►

Chequea GOMONTH() en la ayuda.

Puedes utilizar esta funcion que te dara los 30 dias menos


? m30d(fecha1,fecha2)

fecha1=date()
fecha2=diadepago

FUNCTION m30d()
PARAMETER _fi,_ff
SET CENTURY ON
SET DATE TO DMY
fi=_fi
ff=_ff
mi=MONTH(fi)
mf=MONTH(ff)
di=DAY(fi)
df=DAY(ff)
yi=YEAR(fi)
yf=YEAR(ff)
xm=mf-mi
IF di > 30 AND df > 30
di = 30
ENDIF
IF df > 30
df = 30
ELSE
IF MONTH(ff + 1) > MONTH(ff)
df = 30
ENDIF
ENDIF
xd=df-di+1
xy=yf-yi
xf=xm*30+xd+(xy*365)
RETURN xf
ENDFUN


Suerte