rem echo off
chcp 932
CLS
setlocal enabledelayedexpansion
IF "%1"=="" %0 .
COLOR 0E
CLS
for %%a in ("20??????_??????_?.*") do (
set venut=%%a
set venus=%venut:~0,15%_0%venut:~16,1%
rename %venut% %venus%.*
)
COLOR 0F
CLS
echo on
for %%a in ("20??????_??????_??.*") do (
SET week=$$$$
set venus=%%a
CALL :LOOP
)
:LOOP
set month=%venus:~4,2%
set TODAY=%venus:~0,8%
set /a h=%venus:~0,2%
set /a y=%Venus:~2,2%
if "%TODAY:~4,1%"=="0" (set /a m=%TODAY:~5,1%) else (set /a m=%TODAY:~4,2%)
if "%TODAY:~6,1%"=="0" (set /a d=%TODAY:~7,1%) else (set /a d=%TODAY:~6,2%)
if %m%==1 ( set /a y-=1&set /a m+=12 )
if %m%==2 ( set /a y-=1&set /a m+=12 )
@echo %h%%y%%m%%d% [%WEEK%] %hour%%minute%%second%#%count%;;%datinverse%[%WEEK%]%timinverse%#%countinverse%
REM ツェラーの公式
set /a week_value=( y + (y/4) + (h/4) - 2*h + (13*(m+1)/5) + d ) %% 7
ECHO 『%week_Value%』
REM 曜日の設定
if %week_value%==0 set WEEK=Sat
if %week_value%==1 set WEEK=Sun
if %week_value%==2 set WEEK=Bon
if %week_value%==3 set WEEK=Cue
if %week_value%==4 set WEEK=Ded
if %week_value%==5 set WEEK=Ehu
if %week_value%==6 set WEEK=Fri
set /a hour=%venus:~9,2%
set /a minute=%venus:~11,2%
set /a second=%venus:~13,2%
set /a count=%venus:~16,2%
set /a datinverse=99999999-%venus:~0,8%
set /a timinverse=999999-%venus:~9,6%
set /a countinverse=99-%venus:~16,2%
@echo %h%%y%%m%%d% [%WEEK%] %hour%%minute%%second%#%count%;;%datinverse%[%WEEK%]%timinverse%#%countinverse%
PAUSE
)