[TIP] Mediante fichero batch: sumar dias a una fecha

Nos creamos no notepad un fichero .bat o .cmd con el siguiente contenido:

@echo off
setlocal ENABLEEXTENSIONS
call :dias %1
set /a j+=%2
call :inc %j%
echo %dd%/%mm%/%yy%
endlocal
goto :EOF

:dias
for /f "tokens=1,2,3 delims=-/." %%a in ("%1") do (
set dd=%%a&set mm=%%b&set yy=%%c)
set /a dd0%dd%%%100,mm0%mm%%%100
set /a z-mm,z/,y=yy+4800-z,m=mm+12*z-3,j3*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
goto :EOF

:inc
set /a a=%1+2472632,b=4*a+3,b/6097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/61,e=-1461*d,e/=4,e+=c,m=5*e+2,m/3,dd3*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
goto :EOF


Si lo llamamos por ejemplo inc_fecha.cmd, la manera de invocarlo será:

inc_fecha fecha ndias

fecha: admite el formato: dd.mm.aaaa, dd-mm-aaaa o dd/mm/aaaa

el resultado sumar los "ndias" tecleados a la fecha. (admite signo para restar dias)

NOTA: la rutina es exacta teniendo presente la regla de bisiestos en centenarios.


Jose Manuel Tella Llop
MVP - Windows
(quitar XXX)
http://www.multingles.net/jmt.htm

Este mensaje se proporciona "como está" sin garantías de ninguna clase,
y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no
rights.
You assume all risk for your use.

Nos creamos no notepad un fichero .bat o .cmd con el siguiente contenido:

@echo off
setlocal ENABLEEXTENSIONS
call :dias %1
set /a j+=%2
call :inc %j%
echo %dd%/%mm%/%yy%
endlocal
goto :EOF

:dias
for /f "tokens=1,2,3 delims=-/." %%a in ("%1") do (
set dd=%%a&set mm=%%b&set yy=%%c)
set /a dd0%dd%%%100,mm0%mm%%%100
set /a z-mm,z/,y=yy+4800-z,m=mm+12*z-3,j3*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
goto :EOF

:inc
set /a a=%1+2472632,b=4*a+3,b/6097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/61,e=-1461*d,e/=4,e+=c,m=5*e+2,m/3,dd3*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
goto :EOF


Si lo llamamos por ejemplo inc_fecha.cmd, la manera de invocarlo será:

inc_fecha fecha ndias

fecha: admite el formato: dd.mm.aaaa, dd-mm-aaaa o dd/mm/aaaa

el resultado sumar los "ndias" tecleados a la fecha. (admite signo para restar dias)

NOTA: la rutina es exacta teniendo presente la regla de bisiestos en centenarios.


Jose Manuel Tella Llop
MVP - Windows
(quitar XXX)
http://www.multingles.net/jmt.htm

Este mensaje se proporciona "como está" sin garantías de ninguna clase,
y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no
rights.
You assume all risk for your use.

Ahora eso mismo sin dias julianos, venga que el otro dia te envie una
pista.

"JM Tella Llop [MVP Windows]" escribió en el mensaje
news:eZ$

Nos creamos no notepad un fichero .bat o .cmd con el siguiente contenido:

@echo off
setlocal ENABLEEXTENSIONS
call :dias %1
set /a j+=%2
call :inc %j%
echo %dd%/%mm%/%yy%
endlocal
goto :EOF

:dias
for /f "tokens=1,2,3 delims=-/." %%a in ("%1") do (
set dd=%%a&set mm=%%b&set yy=%%c)
set /a dd0%dd%%%100,mm0%mm%%%100
set /a z-mm,z/,y=yy+4800-z,m=mm+12*z-3,j3*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
goto :EOF

:inc
set /a a=%1+2472632,b=4*a+3,b/6097,c=-b*146097,c/=4,c+=a
set /a
d=4*c+3,d/61,e=-1461*d,e/=4,e+=c,m=5*e+2,m/3,dd3*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
goto :EOF


Si lo llamamos por ejemplo inc_fecha.cmd, la manera de invocarlo será:

inc_fecha fecha ndias

fecha: admite el formato: dd.mm.aaaa, dd-mm-aaaa o dd/mm/aaaa

el resultado sumar los "ndias" tecleados a la fecha. (admite signo para
restar dias)

NOTA: la rutina es exacta teniendo presente la regla de bisiestos en
centenarios.


Jose Manuel Tella Llop
MVP - Windows
(quitar XXX)
http://www.multingles.net/jmt.htm

Este mensaje se proporciona "como está" sin garantías de ninguna clase,
y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no
rights.
You assume all risk for your use.

Ahora eso mismo sin dias julianos, venga que el otro dia te envie una
pista.

"JM Tella Llop [MVP Windows]" escribió en el mensaje
news:eZ$

Nos creamos no notepad un fichero .bat o .cmd con el siguiente contenido:

@echo off
setlocal ENABLEEXTENSIONS
call :dias %1
set /a j+=%2
call :inc %j%
echo %dd%/%mm%/%yy%
endlocal
goto :EOF

:dias
for /f "tokens=1,2,3 delims=-/." %%a in ("%1") do (
set dd=%%a&set mm=%%b&set yy=%%c)
set /a dd0%dd%%%100,mm0%mm%%%100
set /a z-mm,z/,y=yy+4800-z,m=mm+12*z-3,j3*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
goto :EOF

:inc
set /a a=%1+2472632,b=4*a+3,b/6097,c=-b*146097,c/=4,c+=a
set /a
d=4*c+3,d/61,e=-1461*d,e/=4,e+=c,m=5*e+2,m/3,dd3*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
goto :EOF


Si lo llamamos por ejemplo inc_fecha.cmd, la manera de invocarlo será:

inc_fecha fecha ndias

fecha: admite el formato: dd.mm.aaaa, dd-mm-aaaa o dd/mm/aaaa

el resultado sumar los "ndias" tecleados a la fecha. (admite signo para
restar dias)

NOTA: la rutina es exacta teniendo presente la regla de bisiestos en
centenarios.


Jose Manuel Tella Llop
MVP - Windows
(quitar XXX)
http://www.multingles.net/jmt.htm

Este mensaje se proporciona "como está" sin garantías de ninguna clase,
y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no
rights.
You assume all risk for your use.

No se utilizan julianos en dicha rutina. No sabes scripting, ni C, ni nada,
o sea que mejor a callar (y aprende en silencio).

Jose Manuel Tella Llop
MVP - Windows
(quitar XXX)
http://www.multingles.net/jmt.htm

Este mensaje se proporciona "como está" sin garantías de ninguna clase,
y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no
rights.
You assume all risk for your use.



"SemiP" wrote in message news:

Ahora eso mismo sin dias julianos, venga que el otro dia te envie una pista.

"JM Tella Llop [MVP Windows]" escribió en el mensaje news:eZ$

Nos creamos no notepad un fichero .bat o .cmd con el siguiente contenido:

@echo off
setlocal ENABLEEXTENSIONS
call :dias %1
set /a j+=%2
call :inc %j%
echo %dd%/%mm%/%yy%
endlocal
goto :EOF

:dias
for /f "tokens=1,2,3 delims=-/." %%a in ("%1") do (
set dd=%%a&set mm=%%b&set yy=%%c)
set /a dd0%dd%%%100,mm0%mm%%%100
set /a z-mm,z/,y=yy+4800-z,m=mm+12*z-3,j3*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
goto :EOF

:inc
set /a a=%1+2472632,b=4*a+3,b/6097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/61,e=-1461*d,e/=4,e+=c,m=5*e+2,m/3,dd3*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
goto :EOF


Si lo llamamos por ejemplo inc_fecha.cmd, la manera de invocarlo será:

inc_fecha fecha ndias

fecha: admite el formato: dd.mm.aaaa, dd-mm-aaaa o dd/mm/aaaa

el resultado sumar los "ndias" tecleados a la fecha. (admite signo para restar dias)

NOTA: la rutina es exacta teniendo presente la regla de bisiestos en centenarios.


Jose Manuel Tella Llop
MVP - Windows
(quitar XXX)
http://www.multingles.net/jmt.htm

Este mensaje se proporciona "como está" sin garantías de ninguna clase,
y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no
rights.
You assume all risk for your use.