Pregunta con fechas

Gracias Fernando me pondre a mirar este codigo a ver como
me va; supongo que este codigo tiene en cuenta si es año
bisiesto o no.

gracias.

Si anonymous, la instruccion GOMONTH toma en cuenta los bisiestos

Saludos
Gabriel González
"anonymous" escribió en el mensaje
news:a0d401c43512$c2b34af0$
Gracias Fernando me pondre a mirar este codigo a ver como
me va; supongo que este codigo tiene en cuenta si es año
bisiesto o no.

gracias.

Hola estuve probando el codigo y algunas veces lo hace
bien y otras no, ej: 2003/10/05 y 6 meses, lo correcto
seria 2004/04/05 pero me arroja es 2004/10/05, no se que
pasa.

Agradezco las sugerencias que me puedan dar.
Soy un novato con esto

Si anonymous, la instruccion GOMONTH toma en cuenta los

bisiestos

Saludos
Gabriel González
"anonymous"

escribió en el mensaje

news:a0d401c43512$c2b34af0$
Gracias Fernando me pondre a mirar este codigo a ver como
me va; supongo que este codigo tiene en cuenta si es año
bisiesto o no.

gracias.


.

GOMONTH() funciona correcto, pareciara que estas sumando dos veces 6 meses a
la misma variable

ld = DATE(2003,10,05)
? GOMONTH(ld, 6)
? GOMONTH(ld, 12)
? GOMONTH(GOMONTH(ld, 6), 6)


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos



"anonymous" escribió en el mensaje
news:b04601c436d0$496e4f40$
Hola estuve probando el codigo y algunas veces lo hace
bien y otras no, ej: 2003/10/05 y 6 meses, lo correcto
seria 2004/04/05 pero me arroja es 2004/10/05, no se que
pasa.

Agradezco las sugerencias que me puedan dar.
Soy un novato con esto

Si anonymous, la instruccion GOMONTH toma en cuenta los

bisiestos

Saludos
Gabriel González
"anonymous"

escribió en el mensaje

news:a0d401c43512$c2b34af0$
Gracias Fernando me pondre a mirar este codigo a ver como
me va; supongo que este codigo tiene en cuenta si es año
bisiesto o no.

gracias.


.

Estoy trabajando con el siguiente codigo suministrado por
Fernando Bozzo

nMesesAprox = INT((DATE() - thisform.txtFecha.Value ) /
30.4375)
nDifA3Meses = MOD(nMesesAprox,thisform.txtMeses.Value)
dFechaIni = thisform.txtFecha.Value
dFechaHoy = DATE()
dProximaFecha = {}
IF nDifA3Meses = 0 THEN
dProximaFecha = GOMONTH(dFechaIni, nMesesAprox)
IF dProximaFecha < dFechaHoy THEN
dProximaFecha = GOMONTH(dFechaIni, nMesesAprox +
thisform.txtMeses.Value)
ENDIF
ELSE
dProximaFecha = GOMONTH(dFechaIni, nMesesAprox -
nDifA3Meses + thisform.txtMeses.Value)
ENDIF
MESSAGEBOX(dProximaFecha)

Y la fecha 2003/10/05(año/mes/dia) con 6 meses siempre se
va al else y se pueden dar cuenta que lo suma dos veces,
no entiendo el MOD.

Espero que me puedan aclarar un poco.

Claro que el otro codigo si funciona pero no lo he
probado con todos.

Gracias.