날자를 월, 일, 년으로 분해하기에서 오늘 날자를 계산하는 DoAToday와 사용자의 암호 만료일을 계산하는 DoAExpDT를 만들었다.

DoADateM은 범용 날자 계산 루틴으로 사용 형식과 기능은 다음과 같다.

Call DoADateM YY1 MM1 DD1 - YY2 MM2 DD2

대수 환경변수 NDD에 지정한 날자의 차(부호포함)를 할당한다.

Call DoADateM YY1 MM1 DD1 +/- Days

더하거나 뺀 결과로 대수 환경변수 NYY, NMM와 NDD와 환경변수 AMM, ADD와 AYMD를 설정한다.

Call DoADateM YY1 MM1 DD1

대수 환경변수 NYY, NMM와 NDD와 환경변수 AMM, ADD와 AYMD를 설정한다.

DoADateM가 오류를 검출하면 대수 환경변수 NDD는 999999로 설정된다.

대수 환경변수에서 선행되는 "0"은 제거되었다. 1월은 NMM에서는 1이지만 AMM에서는 01이 된다. YY1과/나 YY2가 YY 형식일지라도 NYY은 YYYY 형식으로 표현된다. AYMD은 YYYYMMDD 형식이다.

DoADateM.bat 파일을 생성하고 이 파일을 경로내에 둔다.

@echo off
set NDD=
set NMM= 
set NYY=
set AYMD=
set AMM=
set ADD=
If /i "%4"=="+" goto OK1
If /i "%4"=="-" goto OK1
if "%4"=="" goto OK1

:syntax
@echo DoADateM Type YY MM DD +/-  Days/YY MM DD
set /a NDD=999999
goto end

:OK1
set YY1=%1
if /i "%1" GTR  "99" goto OK3
if /i "%1" GTR  "49" goto OK219
set YY1=20%YY1%
goto OK3

:OK219
set YY1=19%YY1%

:OK3
set /a YY1=%YY1%
if "%2" GTR "12" goto syntax
if "%3" GTR "31" goto syntax
set MM1=!%2
set DD1=!%3
set MM1=%MM1:!0=%
set MM1=%MM1:!=%
set /a MM1=%MM1%
set DD1=%DD1:!0=%
set DD1=%DD1:!=%
set /a DD1=%DD1%
If not "%6"=="" goto OKD 
if "%4"=="" goto OK5
set DAYA=%5
set /a DAYN=%DAYA%
if "%DAYA%"=="%DAYN%" goto DAYS
goto syntax

:OK5
set /a NDD=%DD1%

:OK6
set /a NMM=%MM1%
set /a NYY=%YY1%
if %DD1% GTR 9 goto CVTDD
set ADD=0%DD1%
goto CVTMD

:CVTDD
set ADD=%DD1%

:CVTMD
if %MM1% GTR 9 goto CVTMM
set AMM=0%MM1%
goto CVTMY

:CVTMM
set AMM=%MM1%

:CVTMY
set AYMD=%YY1%%AMM%%ADD%
goto end

:OKD
If /i "%4"=="+" goto syntax
set YY2=%5
if /i "%5" GTR  "99" goto OK4
if /i "%5" GTR  "49" goto OK419
set YY2=20%YY2%
goto OK4

:OK419
set YY2=19%YY2%

:OK4
if "%6" GTR "12" goto syntax
if "%7" GTR "31" goto syntax
set /a YY2=%YY2%
set MM2=!%6
set DD2=!%7
set MM2=%MM2:!0=%
set MM2=%MM2:!=%
set /a MM2=%MM2%
set DD2=%DD2:!0=%
set DD2=%DD2:!=%
set /a DD2=%DD2% 
set /a WKYY1= %YY1% * 365
set /a WKYY=%YY1% / 4
set /a WKYY1=%WKYY1% + %WKYY%
set /a WKYY=%WKYY% * 4
if %YY1% NEQ %WKYY% goto SUBD1%MM1%
if %MM1% GEQ 3 goto SUBD1%MM1%
set /a WKYY1=%WKYY1% - 1
goto SUBD1%MM1%

:SUBD11
set /a WKYY1=%WKYY1% + %DD1%
goto SUBD2

:SUBD12
set /a WKYY1=%WKYY1% + 31
goto SUBD11

:SUBD13
set /a WKYY1=%WKYY1% + 59
goto SUBD11

:SUBD14
set /a WKYY1=%WKYY1% + 90
goto SUBD11

:SUBD15
set /a WKYY1=%WKYY1% + 120
goto SUBD11

:SUBD16
set /a WKYY1=%WKYY1% + 151
goto SUBD11

:SUBD17
set /a WKYY1=%WKYY1% + 181
goto SUBD11

:SUBD18
set /a WKYY1=%WKYY1% + 212
goto SUBD11

:SUBD19
set /a WKYY1=%WKYY1% + 243
goto SUBD11

:SUBD110
set /a WKYY1=%WKYY1% + 273
goto SUBD11

:SUBD111
set /a WKYY1=%WKYY1% + 304
goto SUBD11

:SUBD112
set /a WKYY1=%WKYY1% + 334
goto SUBD11

:SUBD2
set /a WKYY2= %YY2% * 365
set /a WKYY=%YY2% / 4
set /a WKYY2=%WKYY2% + %WKYY%
set /a WKYY=%WKYY% * 4
if %YY2% NEQ %WKYY% goto SUBD2%MM2%
if %MM2% GEQ 3 goto SUBD2%MM2%
set /a WKYY2=%WKYY2% - 1
goto SUBD2%MM2%

:SUBD21
set /a WKYY2=%WKYY2% + %DD2%
goto SUBD3

:SUBD22
set /a WKYY2=%WKYY2% + 31
goto SUBD21

:SUBD23
set /a WKYY2=%WKYY2% + 59
goto SUBD21

:SUBD24
set /a WKYY2=%WKYY2% + 90
goto SUBD21

:SUBD25
set /a WKYY2=%WKYY2% + 120
goto SUBD21

:SUBD26
set /a WKYY2=%WKYY2% + 151
goto SUBD21

:SUBD27
set /a WKYY2=%WKYY2% + 181
goto SUBD21

:SUBD28
set /a WKYY2=%WKYY2% + 212
goto SUBD21

:SUBD29
set /a WKYY2=%WKYY2% + 243
goto SUBD21

:SUBD210
set /a WKYY2=%WKYY2% + 273
goto SUBD21

:SUBD211
set /a WKYY2=%WKYY2% + 304
goto SUBD21

:SUBD212
set /a WKYY2=%WKYY2% + 334
goto SUBD21

:SUBD3
set /a NDD=%WKYY1% - %WKYY2%
goto end

:DAYS
If /i "%4"=="+" goto DAYSP
set /a DD1=%DD1% - %DAYN%

:DAYM
if %DD1% GEQ 1 goto  DAYMD
set /a MM1=%MM1% -1
if %MM1% GEQ 1 goto DAYM%MM1%
set /a YY1=%YY1% - 1
set /a MM1=%MM1% + 12
goto DAYM%MM1%

:DAYM1
set /a DD1=%DD1% + 31
goto DAYM

:DAYM2
set /a DD1=%DD1% + 28
set /a WKYY1=%YY1% / 4
set /a WKYY1=%WKYY1% * 4
If %WKYY1% NEQ %YY1% goto DAYM
set /a DD1=%DD1% + 1
goto DAYM

:DAYM3
set /a DD1=%DD1% + 31
goto DAYM

:DAYM4
set /a DD1=%DD1% + 30
goto DAYM

:DAYM5
set /a DD1=%DD1% + 31
goto DAYM

:DAYM6
set /a DD1=%DD1% + 30
goto DAYM

:DAYM7
set /a DD1=%DD1% + 31
goto DAYM

:DAYM8
set /a DD1=%DD1% + 31
goto DAYM

:DAYM9
set /a DD1=%DD1% + 30
goto DAYM

:DAYM10
set /a DD1=%DD1% + 31
goto DAYM

:DAYM11
set /a DD1=%DD1% + 30
goto DAYM

:DAYM12
set /a DD1=%DD1% + 31
goto DAYM

:DAYMD
set /a NDD=%DD1%
set /a NMM=%MM1%
set /a NYY=%YY1%
if %DD1% GTR 9 goto DAYMDD
set ADD=0%DD1%
goto DAYMM

:DAYMDD
set ADD=%DD1%

:DAYMM
if %MM1% GTR 9 goto DAYMMM
set AMM=0%MM1%
goto DAYMY

:DAYMMM
set AMM=%MM1%

:DAYMY
set AYMD=%YY1%%AMM%%ADD%
goto end

:DAYSP
set /a DD1=%DD1% + %DAYN%

:DAYP
goto DAYP%MM1%

:DAYP1
if %DD1% LEQ 31 goto DAYMD
set /a DD1=%DD1% - 31

:DAYPM
set /a MM1=%MM1% + 1
if %MM1% LEQ 12  goto DAYP%MM1%
set /a YY1=%YY1% + 1
set /a MM1=%MM1% - 12
goto DAYP%MM1%

:DAYP2
set /a WKYY1=%YY1% / 4
set /a WKYY1=%WKYY1% * 4
If %WKYY1% EQU %YY1% goto DAYPL
if %DD1% LEQ 28 goto DAYP%MM1%
set /a DD1=%DD1% - 28
goto DAYPM

:DAYPL
if %DD1% LEQ 29 goto DAYMD
set /a DD1=%DD1% - 29
goto DAYPM

:DAYP3
if %DD1% LEQ 31 goto DAYMD
set /a DD1=%DD1% - 31
goto DAYPM

:DAYP4
if %DD1% LEQ 30 goto DAYMD
set /a DD1=%DD1% - 30
goto DAYPM

:DAYP5
if %DD1% LEQ 31 goto DAYMD
set /a DD1=%DD1% - 31
goto DAYPM

:DAYP6
if %DD1% LEQ 30 goto DAYMD
set /a DD1=%DD1% - 30
goto DAYPM

:DAYP7
if %DD1% LEQ 31 goto DAYMD
set /a DD1=%DD1% - 31
goto DAYPM

:DAYP8
if %DD1% LEQ 31 goto DAYMD
set /a DD1=%DD1% - 31
goto DAYPM

:DAYP9
if %DD1% LEQ 30 goto DAYMD
set /a DD1=%DD1% - 30
goto DAYPM

:DAYP10
if %DD1% LEQ 31 goto DAYMD
set /a DD1=%DD1% - 31
goto DAYPM

:DAYP11
if %DD1% LEQ 30 goto DAYMD
set /a DD1=%DD1% - 30
goto DAYPM

:DAYP12
if %DD1% LEQ 31 goto DAYMD
set /a DD1=%DD1% - 31
goto DAYPM

:end
SET WKYY=
SET WKYY1=
SET WKYY2=
SET DAYA=
SET DAYN=
SET MM1=
SET DD1=
SET YY1=
SET MM2=
SET DD2=
SET YY2=

간단한 사용법을 위해서는 DATE 계산을 보기 바란다.

Xmas까지의 남은 날자를 계산하기위해 XMAS.bat을 다음과 같이 작성한다.

@echo off
for /f "tokens=1,2,3,4* delims=/ " %%i in ('date /t') 
		do set TDDAY=%%i&set TDMM=%%j&set TDDD=%%k&set TDYY=%%l
REM 만약 날자 형식이 Day DD-MM-YYYY라면, 다음 것을 사용한다.
REM for /f "tokens=1,2,3,4* delims=- " %%i in ('date /t') do
REM set TDDAY=%%i&set TDDD=%%j&set TDMM=%%k&set TDYY=%%l
SET /a XYY=%TDYY%
if "%TDMM%" LSS "12" goto CALC
if "%TDDD%" LSS "25" goto CALC
set /a XYY=%XYY% + 1

:CALC
call DoADateM %XYY% 12 25 - %TDYY% %TDMM% %TDDD%
@echo %NDD%