Page 1 of 1

SUMAR UNA FECHA A UN NUMERO?

Posted: Sat Jan 06, 2007 12:27 pm
by karinha
Buenos Dias Amigos, por favor, necesito ayuda de todos ustedes, para lo ke sigue:

Como puedo hacer para sumar una fecha a un numero:

Ejemplo:

Tengo la siguinte fecha inicial:

31/12/2006

Necesito sumar a esta fecha, 5 años( 60 meces )

y que el resultado, me retorne la nueva fecha de término.

Regards, saludos.

Posted: Sat Jan 06, 2007 1:23 pm
by Armando
Karinha:

Se me ocurre lo siguiente partiendo de la fecha de la PC

FUNCTION Sumar(nSumar)
LOCAL dNvaFec := CTOD(STR(DAY(DATE()),2,0) + "/" + ;
STR(MONTH(DATE()),2,0) + "/" + ;
STR(YEAR(DATE())+nSumar,4,0))
RETURN(dNvaFec)

Espero te funcione

Saludos, Armando

Posted: Sat Jan 06, 2007 2:03 pm
by dbzap
dfecha := CtoD( "31/12/2006" )
dFechaNueva := dFecha + 365*5
? dFecha, dFechaNueva

creo yo .....

Posted: Sat Jan 06, 2007 7:18 pm
by Verhoven
¿Y los años bisiestos?
imaginen que la fecha inicial sea un 29 de febrero, que haberlos haylos.

Posted: Sat Jan 06, 2007 7:24 pm
by Armando
dbZap:

Disculpa la intromisión, en la forma que sugieres se estan sumando dias y no años, me queda la siguiente duda, ¿¿ qué pasará cuando haya algún año bisiesto dentro de los 5 años a sumar ????

Saludos, Armando

Posted: Sun Jan 07, 2007 9:43 pm
by Rochinha
Amigos

Un año bisiexto tiene 366 dias e para saber se lo mismo és bisexto basta dividir por 400 ex:

Code: Select all

if MOD( nAno / 400 ) <> 0
   ? "Año es Bisiexto."
endif
[code]

2000 / 400 es 5.00 
2001 / 400 es 5.00
2002 / 400 es 5.01 - este es bisiexto
2003 / 400 es 5.00

Portanto la rutina deve verificar cada año e somar mais un dia.

Posted: Mon Jan 08, 2007 12:32 pm
by carlosmora
Los años bisiestos son todos aquellos múltiplos de 4, no multiplos de 100 salvo los multiplos de 400 (el 2000 es bisiesto)

Carlos

Posted: Mon Jan 08, 2007 12:52 pm
by dbzap
Un buen chiste referido a lo mismo dice....

Juan pregunta a Paco... cuanto es 2 x 3..... ?
Paco apresuradamente responde, 5 !!
Pero Paco, señala Juan, 2 x 3 es 6.....
y Paco responde... "y que querias, rapidez o exactitud ?"

Solo respondi a una inquietud de "saber como sumar dias a una fecha".
Para hacer exactamente lo que solicita es necesario contar dias exactos, la idea es saber cuantos dias tiene cada mes y eso es facil ( con un truco claro está ).
Te ubicas en el primer dia del mes siguiente y restas 1 y tienes el ultimo dia del mes anterior y asi vas sumando hasta el mes que requieres.... eso es todo.
Una vez obtenida la suma de dias, se agrega a la fecha actual y listo el bote !!

Saludos

(Espero ser claro, de lo contrario tendria que escribir la rutina, de todas formas me avisas )

Posted: Mon Jan 08, 2007 6:29 pm
by karinha
Gracias a todos Ustedes.

Resuelto, marabillosamente Bién!

Regards, saludos.

Re: SUMAR UNA FECHA A UN NUMERO?

Posted: Tue Feb 09, 2021 5:23 am
by AIDA
Hola

como debo sumar 30 días para que después se ejecute otra aplicación :?:

Saluditos :wink:

Re: SUMAR UNA FECHA A UN NUMERO?

Posted: Tue Feb 09, 2021 9:57 am
by nageswaragunupudi
karinha wrote:Buenos Dias Amigos, por favor, necesito ayuda de todos ustedes, para lo ke sigue:

Como puedo hacer para sumar una fecha a un numero:

Ejemplo:

Tengo la siguinte fecha inicial:

31/12/2006

Necesito sumar a esta fecha, 5 años( 60 meces )

y que el resultado, me retorne la nueva fecha de término.

Regards, saludos.

Code: Select all

dNewDate := ADDMONTH( dOldDate, nMonts )