一、加法函數(shù) 任意位數(shù) 的正整數(shù) 進行 加法計算
二、減法函數(shù) 可以對 200位 以內(nèi)正整數(shù) 進行 減法計算
三、乘法函數(shù) 可以對 任意位數(shù) 的正整數(shù)進行 乘法計算
四、計算批處理運行時間函數(shù) 時間必須是24小時制，未考慮時間為00點的情況。
五、查詢指定天數(shù)前的日期（作者：Will Sort 出自：cn-dos ）
六、數(shù)字排序函數(shù)
七、關(guān)于進制轉(zhuǎn)換的函數(shù)
1、任意進制互轉(zhuǎn)（只能處理cmd范圍內(nèi)的數(shù)）
標簽段以封裝，可直接調(diào)用，使用方法見標簽上方的說明
為方便使用，標簽以外的代碼作了界面美化等處理。使得代碼略顯臃腫。。。
2、二進制轉(zhuǎn)十六進制（封裝）（通過4位一段轉(zhuǎn)換，可處理超大數(shù)）
3、十六進制轉(zhuǎn)二進制（封裝）（通過4位一段轉(zhuǎn)換，可處理超大數(shù)）
4、二進制轉(zhuǎn)十進制（封裝）（只能處理cmd范圍內(nèi)的數(shù)，小巧方便代碼中調(diào)用）
5、獲取10進制數(shù)（含負數(shù)）的 原碼、反碼、補碼（未封裝）（只能處理cmd范圍內(nèi)的值）
完全不懂計算機，只理解為計算機中負數(shù)用補碼表達
代碼中二進制數(shù)用32位顯示，超出32位的會出錯，
呵呵，不知道電腦中有沒有用32位以上表達的二進制數(shù)，哈哈外行話見笑了^_^
6、綜合以上對2、8、10、16進制數(shù)進行轉(zhuǎn)換、（未封裝）
顯示轉(zhuǎn)換后的2、8、10、16進制數(shù)及 原碼、反碼、補碼
:[code]
@echo off
call :jia 354687654165435 35486456 ok
echo %ok%
pause
:jia 加法函數(shù)（封裝）by @隨風(fēng) @bbs.bathome.cn
::計算任意位數(shù)的正整數(shù)加法
setlocal enabledelayedexpansion&set f=&set "t="
set var1=%~1&set var2=%~2&set /a j=0,n1=0,n2=0
for /l %%a in (0 1 9) do (set vard1=&set "vard2="
set var1=!var1:%%a= %%a !&set var2=!var2:%%a= %%a !)
for %%a in (!var1!)do (set/a n1+=1&set vard1=%%a !vard1!)
for %%a in (!var2!)do (set/a n2+=1&set vard2=%%a !vard2!)
(if !n1! lss !n2! (set var1=%var2%&set "var2=%var1%"
set vard1=%vard2%&set vard2=%vard1%))&set "var2=!var2: =!"
for %%a in (!vard1!) do (if "!var2!"=="" set /a var2=0
set /a a=%%a+!var2:~-1!+j&set t=!a:~-1!!t!&set "a=0!a!"
set "j=!a:~-2,1!"&set var2=!var2:~0,-1!)
Endlocal&set %~3=%t%&goto :EOF
[/code]
=====================================================================
:[code]
@echo off
call :jian 354687654165435 35486456 ok
echo %ok%
pause
:jian 減法函數(shù)（封裝）by @隨風(fēng) @bbs.bathome.cn
::計算1000位以內(nèi)的正整數(shù)減法
setlocal enabledelayedexpansion&&set t=&set f=&set "lin=00000"
for /l %%a in (1 1 5) do set "lin=!Lin!!lin!!lin!"
set var1=!lin!%~1&set var2=!lin!%~2&set vard1=&set/a j=0
set var1=!var1:~-1000!&set "var2=!var2:~-1000!"
if "!var1!" lss "!var2!" (set var1=%~2&set "var2=%~1"
set "f=-") else set var1=%~1&set "var2=%~2"
for /l %%a in (0 1 9) do set "var1=!var1:%%a= %%a !"
for %%a in (!var1!) do set "vard1=%%a !vard1!"
for %%a in (!vard1!) do (if "!var2!"=="" set/a var2=0
set /a a=%%a-j,b=!var2:~-1!
if !a! lss !b! (set /a a+=10,j=1)else set /a j=0
set /a w=a-b&set t=!w!!t!&set var2=!var2:~0,-1!)
for /f "tokens=* delims=0" %%a in ("!t!") do (
if "%%a"=="" (set t=0) else set "t=%%a")
Endlocal&set %~3=%f%%t%&goto :EOF
[/code]
=====================================================================
:[code]
@echo off
call :cen 354687654165435 35486456 ok
echo %ok%
pause
:cen 乘法函數(shù)（封裝）by @隨風(fēng) @bbs.bathome.cn
::計算任意位數(shù)的正整數(shù)乘法
setlocal enabledelayedexpansion
if "%~1"=="0" Endlocal&set %~3=0&goto :EOF
if "%~2"=="0" Endlocal&set %~3=0&goto :EOF
set f=&set jia=&set ji=&set /a n1=0,n2=0
set vard1=&set "vard2="&set var1=%~1&set "var2=%~2"
for /l %%a in (0 1 9) do (
set var1=!var1:%%a= %%a !&set var2=!var2:%%a= %%a !)
for %%a in (!var1!)do (set /a n1+=1&set vard1=%%a !vard1!)
for %%a in (!var2!)do (set /a n2+=1&set vard2=%%a !vard2!)
if !n1! gtr !n2! (set vard1=%vard2%&set vard2=%vard1%)
for %%a in (!vard1!) do (set "t="&set /a j=0
for %%b in (!vard2!) do (if "!jia!"=="" set /a jia=0
set /a a=%%a*%%b+j+!jia:~-1!&set "t=!a:~-1!!t!"
set a=0!a!&set "j=!a:~-2,1!"&set jia=!jia:~0,-1!)
set "ji=!t:~-1!!ji!"
if "!j:~0,1!"=="0" (set ss=) else set "ss=!j:~0,1!"
set jia=!ss!!t:~0,-1!)
if not "!j:~0,1!"=="0" set "t=!j:~0,1!!t!"
set "ji=!t!!ji:~1!"
Endlocal&set %~3=%ji%&goto :EOF
[/code]
=====================================================================
[code]
@echo off
set t=%time%
call :time0 "%t%" "%time%" ok
echo %ok%
pause
:time0 計算時間差 （封裝）
@echo off&setlocal&set /a n=0&rem code 隨風(fēng) @bbs.bathome.cn
for /f "tokens=1-8 delims=.: " %%a in ("%~1:%~2") do (
set /a n+=10%%a%%100*360000+10%%b%%100*6000+10%%c%%100*100+10%%d%%100
set /a n-=10%%e%%100*360000+10%%f%%100*6000+10%%g%%100*100+10%%h%%100)
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=%s% 小時 %f% 分鐘 %m% 秒 %n% 毫秒"
endlocal&set %~3=%ok:-=%&goto :EOF
[/code]
=====================================================================
數(shù)字排序
:[code]
@echo off
:start
setlocal enabledelayedexpansion&cls
for /l %%a in (1 1 10) do set str=!str! !random!
echo.&echo %str%
call :sort "%str%" ok
echo %ok%
pause>nul
endlocal&goto start
:sort 可以處理0開頭的數(shù)、重復(fù)數(shù)及200位以內(nèi)的超大整數(shù)（封裝）
@echo off&setlocal enabledelayedexpansion
for /f "delims==" %%a in ('set p. 2^>nul')do set "%%a="
for /l %%a in (1 1 20) do set "p.lin=0000000000!p.lin!"
for %%a in (%~1) do (set s=!p.lin!%%a&set "s=!s:~-200!"
if defined p...!s! (set p..%%a=!p..%%a! %%a
set p...!s!=!p..%%a! %%a) else (set p...!s!=%%a))
for /f "tokens=2 delims==" %%a in ('set p...') do (
for %%i in (%%a) do set "p.ok=!p.ok! %%i")
endlocal&set %~2=%p.ok:~1%&goto :EOF
[/code]
=====================================================================
:[code]
@echo off
:start
setlocal&cls
set /p tian= 請指定要追溯的天數(shù)：&echo\
call :Date2Day "%date%" %tian% ok
echo %ok%
endlocal&pause>nul&goto start
:Date2Day 計算指定天數(shù) 前/后 的日期及星期 （封裝）
@echo off&setlocal ENABLEEXTENSIONS
for /f "tokens=1-3 delims=/-:\, " %%a in ('echo/%~1') do (
set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100)
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
set /a i=j-%~2,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,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%)
for %%a in (一/1 二/2 三/3 四/4 五/5 六/6 日/0) do (
for /f "tokens=1,2 delims=/" %%i in ("%%a")do set %%i=%%j&set ".%%j=%%i")
if %~2 gtr 0 (set /a d=^(7-%~2%%7+%date:~-1%^)%%7&set x=前) else (
set /a d=^(~%~2+1+%date:~-1%^)%%7&set x=后)
call set "d=星期%%.%d%%%"
endlocal&set %~3=%yy%-%mm%-%dd% %d%&goto :EOF
[/code]
=====================================================================
進制轉(zhuǎn)換（函數(shù)）
代碼1、
任意進制互轉(zhuǎn)
[code]
@echo off&color 1f&set /a q=10,h=2
title 任意進制互轉(zhuǎn) 默認：%q%進制轉(zhuǎn)%h%進制
:start
setlocal&echo.&echo. 被轉(zhuǎn)換的數(shù) 被轉(zhuǎn)換數(shù)的進制 需轉(zhuǎn)換成的進制
echo.&echo. 如：95 16 10 表示將 16進制數(shù)95 轉(zhuǎn)換 為10進制數(shù)
echo.&echo. 參數(shù)可用分割符為 空格 / + - \ 如：95/16/10 或95+16+10
echo.&echo. 默認將 10進制 轉(zhuǎn)換為 2進制（即上例中如果不輸入 16 10 則默認為 10 2）
echo.&set /p num= 請輸入需轉(zhuǎn)換的數(shù) &cls
if not defined num endlocal&goto start
for /f "tokens=1-3 delims=/+-\ " %%a in ("%num%") do (
set "num=%%a"
if not "%%b"=="" if not "%%c"=="" set /a q=%%b,h=%%c
)
call :nxn "%num%" ok %q% %h%
for /l %%a in (1 1 12)do (
if %%a equ 4 (
echo. %q%進制轉(zhuǎn)%h%進制結(jié)果
echo.&echo. %num% = %ok%
)else echo\
)
set /a w=%random%%%2
if %w% equ 1 (set f=1f) else (set f=df)
color %f%&endlocal&goto start
::函數(shù)使用方法：call :nxn "98" ok 10 2
::call :nxn "被轉(zhuǎn)換的數(shù)" 保存結(jié)果的變量名 被轉(zhuǎn)換數(shù)的進制 需轉(zhuǎn)換成的進制
::默認將 10進制 轉(zhuǎn)換為 2進制（即上例中不輸入 10 2）
:nXn 任意進制互轉(zhuǎn) @隨風(fēng) @bbs.bathome.cn（封裝）
@echo off&setlocal enabledelayedexpansion
if "%~4"=="" (set /a q=10,h=2)else (set /a q=%~3,h=%~4)
set "str=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
for /l %%a in (0 1 35)do set .%%a=!str:~%%a,1!&set ".!str:~%%a,1!=%%a"
set sun=&set jie=&set "var=%~1"&set /a nnn=1,num=0
for /l %%a in (0 1 100) do (
if not "!var:~%%a,1!"=="" (call set sun=%%.!var:~%%a,1!%% !sun!))
for %%a in (!sun!) do set /a num=%%a*nnn+num,nnn*=q
:10進制轉(zhuǎn)n進制
set /a yu=num%%h,num/=h
set "jie=!.%yu%!!jie!"&if !num! gtr 0 goto 10進制轉(zhuǎn)n進制
endlocal&set %~2=%jie%&goto :EOF
[/code]
代碼2、
二進制轉(zhuǎn)十六進制（封裝）（通過4位一段轉(zhuǎn)換，可處理超大數(shù)）
[code]
@echo off&color 1f&title 二進制 轉(zhuǎn) 十六進制
call :2x16 "11111111 11111111 11111111 11111110" ok
echo %ok%
pause
::以4位一段，分別轉(zhuǎn)換為十六進制,不必考慮超大數(shù)問題
:2x16 二進制 轉(zhuǎn) 十六進制 @隨風(fēng) @bbs.bathome.cn （封裝）
@echo off&setlocal enabledelayedexpansion
set "str=0123456789ABCDEF"
set k=&set kk=&set xx=&set "x=000%~1"
set x=!x:0= 0!&set x=!x:1= 1!&set /a jj=0,ss=1
for %%a in (!x!) do set "xx=%%a !xx!"
for %%a in (!xx!) do (set /a jj+=%%a*ss,ss=ss*2
if !ss! equ 16 set k=!jj! !k!&set /a jj=0,ss=1)
for %%a in (!k!) do set kk=!kk!!str:~%%a,1!
endlocal&set %~2=%kk%&goto :EOF
[/code]
代碼3、
十六進制轉(zhuǎn)二進制（封裝）（通過4位一段轉(zhuǎn)換，可處理超大數(shù)）
[code]
@echo off&color 1f&title 十六進制 轉(zhuǎn) 二進制
set mmm=bfa35e7d8
call :16x2 %mmm% ok
echo.&echo 十六進制 %mmm%
echo.&echo 二進制 %ok%
echo.&pause
::以4位一段，分別轉(zhuǎn)換為二進制,不必考慮超大數(shù)問題
:16x2 十六進制 轉(zhuǎn) 二進制 @隨風(fēng) @bbs.bathome.cn （封裝）
@echo off&setlocal enabledelayedexpansion
set str=0123456789abcdef&set ok=&set "num=%~1"
for /l %%a in (0 1 15) do (set ".!str:~%%a,1!=%%a"
call set "num=%%num:!str:~%%a,1!= !str:~%%a,1!%%")
for %%i in (!num!) do (set /a x=0,n=!.%%i!
for %%a in (8 4 2 1) do (set /a x+=%%a
if !n! geq !x! (set ok=!ok!1) else (
set ok=!ok!0&set /a x-=%%a)))
endlocal&set %~2=%ok%&goto :EOF
[/code]
代碼4、
二進制轉(zhuǎn)十進制（封裝）（只能處理cmd范圍內(nèi)的數(shù)，小巧方便代碼中調(diào)用）
[code]
@echo off
call :2x10 01100100 ok
echo %ok%
pause
:2x10 2進制轉(zhuǎn) 10進制 @隨風(fēng) @bbs.bathome.cn （封裝）
@echo off&setlocal enabledelayedexpansion
set /a nnn=1,num=0&set nn=&set "n=%~1"
set "n=!n:0= 0!"&set "n=!n:1= 1!"
for %%a in (!n!) do set "nn=%%a !nn!"
for %%a in (!nn!) do set /a num+=%%a*nnn,nnn*=2
endlocal&set %~2=%num%&goto :EOF
[/code]
代碼5、
獲取10進制數(shù)（含負數(shù)）的 原碼、反碼、補碼（未封裝）
[code]
@echo off&color 1f&title 獲取10進制數(shù)的 原碼、反碼、補碼
::獲取10進制數(shù)的 原碼、反碼、補碼
::計算機中 負數(shù)用補碼表達
::補碼：反碼+1
::反碼：將二進制數(shù)（原碼）按位取反 （即：1變0、0變1）
::原碼：一個整數(shù)，按照絕對值大小轉(zhuǎn)換成的二進制數(shù)，稱為原碼。
::個人理解為在計算機中表達負數(shù)的二進制數(shù)叫補碼
::所以以下代碼中，若輸入的是負數(shù)則結(jié)果中補碼代表該數(shù)
@echo off&rem @隨風(fēng) @bbs.bathome.cn @2009-01-15
:start
setlocal enabledelayedexpansion
for /l %%a in (1 1 15) do set "lin=00000!lin!"
echo.&echo.&set /p y10= 請輸入一個10進制數(shù)可以為負數(shù) &cls
if !y10! lss 0 (set /a n="~y10"+1,c=1) else set /a n=y10,c=1
:10x2 將10進制轉(zhuǎn)成2進制 原碼
set /a y=n%%2,n/=2&set "j=!y!!j!"&if !n! gtr 0 goto 10x2
set j=!lin!!j!&set "j=!j:~-32!"
set ss=!j:0= 0!&set "ss=!ss:1= 1!"
:: 獲取反碼
for %%a in (%ss%) do set /a n="^!%%a"&set "f=!f!!n!"
set f=!lin!!f!&set f=!f:~-32!&set "ss=!f!"
:buma 獲取補碼
set /a m=!ss:~-1!+c
if !m! gtr 1 (set c=1&set b=0!b!)else set c=0&set "b=!m!!b!"
set "ss=!ss:~0,-1!"
if defined ss goto buma
echo.
echo 10進制數(shù) %y10%&echo.
echo 原碼 %j:~-32,8% %j:~-24,8% %j:~-16,8% %j:~-8%
echo 反碼 %f:~-32,8% %f:~-24,8% %f:~-16,8% %f:~-8%
echo 補碼 %b:~-32,8% %b:~-24,8% %b:~-16,8% %b:~-8%
endlocal&goto start
[/code]
代碼6、轉(zhuǎn)換 2、8、10、16、進制數(shù)并顯示2進制 原碼、反碼、補碼（未封裝）
[code]
@echo off
::轉(zhuǎn)換 2、8、10、16、進制數(shù)并顯示2進制原碼、反碼、補碼
::計算機中 負數(shù)用補碼表達
::補碼：反碼+1
::反碼：將二進制數(shù)（原碼）按位取反 （即：1變0、0變1）
::原碼：一個整數(shù)，按照絕對值大小轉(zhuǎn)換成的二進制數(shù)，稱為原碼。
::個人理解為在計算機中表達負數(shù)的二進制數(shù)叫補碼
::完全不懂計算機，只理解為計算機中負數(shù)用補碼表達
::代碼中二進制數(shù)用32位顯示，超出32位的會出錯
::只能處理cmd范圍內(nèi)的數(shù)
@echo off&title 轉(zhuǎn)換 2、8、10、16、進制數(shù)并顯示2進制原碼、反碼、補碼
::@隨風(fēng) @bbs.bathome.cn @2009-1-12
set "str=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
set "color1=1f&set color2=df"&color 1f
for /l %%a in (0 1 35) do (
call set ".%%a=%%str:~%%a,1%%"
call set ".%%str:~%%a,1%%=%%a"
)
:start
setlocal enabledelayedexpansion&color %color1%
echo.
echo. ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo. ┃ ┃
echo. ┃輸入格式：需轉(zhuǎn)換的數(shù)+該數(shù)的進制（可用分割符 / \ + - 空格）┃
echo. ┃ ┃
echo. ┃默認輸入的為10進制數(shù)、也可以是2、8、16進制、但必須指明進制┃
echo. ┃ ┃
echo. ┃如：需轉(zhuǎn)換16進制 2afd 則輸入 2afd+16 10進制數(shù)則不需要指明┃
echo. ┃ ┃
echo. ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo.&set /p num= 請輸入需轉(zhuǎn)換的數(shù) &cls
if not defined num endlocal&goto start
for /f "tokens=1,2 delims=/\+- " %%a in ("%num%") do (
set "n0=%%a"
if "%%b"=="" (set jz=10) else set /a jz=%%b
)
echo.&echo 被轉(zhuǎn)換的數(shù)為: !jz!進制數(shù) !n0!&echo.
if !jz! equ 16 (set /a n10=0x!n0!) else (
if !jz! equ 10 (set n10=!n0!) else (
if !jz! equ 8 (set /a n10=0!n0!) else (
set /a nnn=1,n10=0&call :2x10 !n0!
)))
for %%a in (16 10 8 2) do call :10進制轉(zhuǎn)n進制 !n10! %%a
echo.&call :yuan&echo.
endlocal&set color1=%color2%&set "color2=%color1%"
goto start
:10進制轉(zhuǎn)n進制
set /a yu=n10%%%~2,n10/=%~2
set "jie=!.%yu%!!jie!"&if !n10! gtr 0 goto 10進制轉(zhuǎn)n進制
set "xs= %~2"
echo !xs:~-5! 進制 !jie!
set d2=!jie!&set jie=&set "n10=%~1"
goto :EOF
:2x10 2進制轉(zhuǎn)10進制
set /a n10+=!n0:~-1!*nnn,nnn*=2
set "n0=!n0:~0,-1!"
if defined n0 goto 2x10
goto :EOF
:yuan
for /l %%a in (1 1 15) do set lin=00000!lin!
set j=!lin!!d2!&set "j=!j:~-32!"
set ss=!j:0= 0!&set "ss=!ss:1= 1!"
:: 獲取反碼
for %%a in (%ss%) do set /a n="^!%%a"&set "f=!f!!n!"
set f=!lin!!f!&set f=!f:~-32!&set "ss=!f!"
set /a c=1
:buma 獲取補碼
set /a m=!ss:~-1!+c
if !m! gtr 1 (set c=1&set b=0!b!)else set c=0&set "b=!m!!b!"
set "ss=!ss:~0,-1!"
if defined ss goto buma
echo 原碼 %j:~-32,8% %j:~-24,8% %j:~-16,8% %j:~-8%
echo 反碼 %f:~-32,8% %f:~-24,8% %f:~-16,8% %f:~-8%
echo 補碼 %b:~-32,8% %b:~-24,8% %b:~-16,8% %b:~-8%
goto :EOF
[/code]
