FoxPro/Visual FoxPro - sumar fechas

 
Vista:

sumar fechas

Publicado por JOHANNA SANDOVAL (3 intervenciones) el 26/02/2007 23:26:42
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:sumar fechas

Publicado por neo (1604 intervenciones) el 26/02/2007 23:48:48
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►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:sumar fechas

Publicado por Plinio (7841 intervenciones) el 27/02/2007 13:36:04
Chequea GOMONTH() en la ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:sumar fechas

Publicado por Ernesto Hernandez (4626 intervenciones) el 27/02/2007 17:51:43
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar