PROBLEMA FECHA DESPUES DIA 8
Publicado por JHON JAIRO (3 intervenciones) el 09/05/2014 16:37:57
HOLA ESPERO ME PUEDAN AYUDAR
TENGO UN CODIGO QUE ESTOY EMPEZANDO A REALIZAR, ME ESCRIBE UN ARCHIVO DE TEXTO CON FECHAS DE LOS ULTIMOS 90 DIAS, ANTES DEL DIA 8 DEL MES CORRESPONDIENTE ME GENERA LAS FECHAS DEL MES ACTUAL CORRECTAMENTE, PERO CUANDO PASA DEL DIA 8 ME GENERA HASTA EL DIA 31 DEL ANTERIOR MES.
ESTE ES EL CODIGO :
set d=%date:~0,2%
set da=%date:~0,2%
set m=%date:~3,2%
set a=%date:~6,4%
set mesant=%date:~3,2%
set dia=%date:~6,4%/%mesant%/%d%
set /A mesant=mesant-0
echO off >W:\LABW\ACTUAL\CAMPOS3.TXT
echo %dia% >> W:\LABW\ACTUAL\CAMPOS3.TXT
:menorm
if %d% GEQ 1 (
set diat=%date:~6,4%/%mesant%/%d%
echo %diat% >> W:\LABW\ACTUAL\CAMPOS3.TXT
set/A d=d-1
goto menorm
)
set /A mesant=mesant-1
set /A dma=31
:menordma
if %dma% GEQ 1 (
set diat=%date:~6,4%/%mesant%/%dma%
echo %diat% >> W:\LABW\ACTUAL\CAMPOS3.TXT
set/A dma=dma-1
goto menordma
)
set /A mesant=mesant-1
set /A dmaa=31
:menordmaa
if %dmaa% GEQ 1 (
set diat=%date:~6,4%/%mesant%/%dmaa%
echo %diat% >> W:\LABW\ACTUAL\CAMPOS3.TXT
set/A dmaa=dmaa-1
goto menordmaa
)
set /A mesant=mesant-1
set /A dmaaa=31
:menordmaaa
if %dmaaa% GEQ %da% (
set diat=%date:~6,4%/%mesant%/%dmaaa%
echo %diat% >> W:\LABW\ACTUAL\CAMPOS3.TXT
set/A dmaaa=dmaaa-1
goto menordmaaa
)
POR FAVOR ALGUIEN QUE ME COLABORE..
TENGO UN CODIGO QUE ESTOY EMPEZANDO A REALIZAR, ME ESCRIBE UN ARCHIVO DE TEXTO CON FECHAS DE LOS ULTIMOS 90 DIAS, ANTES DEL DIA 8 DEL MES CORRESPONDIENTE ME GENERA LAS FECHAS DEL MES ACTUAL CORRECTAMENTE, PERO CUANDO PASA DEL DIA 8 ME GENERA HASTA EL DIA 31 DEL ANTERIOR MES.
ESTE ES EL CODIGO :
set d=%date:~0,2%
set da=%date:~0,2%
set m=%date:~3,2%
set a=%date:~6,4%
set mesant=%date:~3,2%
set dia=%date:~6,4%/%mesant%/%d%
set /A mesant=mesant-0
echO off >W:\LABW\ACTUAL\CAMPOS3.TXT
echo %dia% >> W:\LABW\ACTUAL\CAMPOS3.TXT
:menorm
if %d% GEQ 1 (
set diat=%date:~6,4%/%mesant%/%d%
echo %diat% >> W:\LABW\ACTUAL\CAMPOS3.TXT
set/A d=d-1
goto menorm
)
set /A mesant=mesant-1
set /A dma=31
:menordma
if %dma% GEQ 1 (
set diat=%date:~6,4%/%mesant%/%dma%
echo %diat% >> W:\LABW\ACTUAL\CAMPOS3.TXT
set/A dma=dma-1
goto menordma
)
set /A mesant=mesant-1
set /A dmaa=31
:menordmaa
if %dmaa% GEQ 1 (
set diat=%date:~6,4%/%mesant%/%dmaa%
echo %diat% >> W:\LABW\ACTUAL\CAMPOS3.TXT
set/A dmaa=dmaa-1
goto menordmaa
)
set /A mesant=mesant-1
set /A dmaaa=31
:menordmaaa
if %dmaaa% GEQ %da% (
set diat=%date:~6,4%/%mesant%/%dmaaa%
echo %diat% >> W:\LABW\ACTUAL\CAMPOS3.TXT
set/A dmaaa=dmaaa-1
goto menordmaaa
)
POR FAVOR ALGUIEN QUE ME COLABORE..
Valora esta pregunta
0