echo.%date:~0,10%,%time:~0,8%>>"%~dp0\logDT.txt"
复制代码

@echo off
setlocal enabledelayedexpansion
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","REM",,"runas",1)(window.close)&exit
set "logDT=%date:~0,10%,%time:~0,8%"
for /f "usebackq delims=" %%i in ("%~dp0\logDT.txt") do if "!logDT!" lss "%%i" set "logDT=%%i"
if "%date:~0,10%,%time:~0,8%" lss "%logDT%" (
	echo update date time : %logDT%
	date %logDT:~0,10%
	time %logDT:~11,8%
)
pause&exit
复制代码

@echo off

set "older=true"

:main
    call:init
    call:scanf
    call:date_cmp
    call:time_cmp
    if "%older%"=="false" call:correct
    echo 时间校准完毕
    pause
goto:eof

:init
    rem 初始化程序
    if not exist D:\last_time.txt (
        call:write
        echo 初次运行，请加入开机自启动
        set /P=请按任意键退出. . .
        exit
    )
goto:eof

:scanf
    rem 读取上次开机的时间
    for /F "tokens=1,2" %%i in (D:\last_time.txt) do (
        set "get_date=%%i"
        set "get_time=%%j"
    )
goto:eof

:write
    rem 保存开机时的时间
    echo %date:~0,4%-%date:~5,2%-%date:~8,2% %time%>D:\last_time.txt
goto:eof

:date_cmp
    rem 日期比较
    if "%older%"=="false" goto:eof
goto:eof

:time_cmp
    rem 时间比较
    if "%older%"=="false" goto:eof
goto:eof

:correct
    rem 校准时间
    echo %get_date%>D:\date.tmp
    echo %get_time%>D:\time.tmp
    date<D:\date.tmp
    time<D:\time.tmp
    del D:\date.tmp
    del D:\time.tmp
goto:eof
复制代码

@echo off
REM logFile
set "logFile=%~dp0logDT.txt"
REM write
echo.%date:~0,10%,%time:~0,8%>>"%logFile%"
REM max line
set "maxLine=20"
REM current line num
for /f "tokens=3 delims=:" %%i in ('find /n /c "," "%~dp0\logDT.txt"') do set "curLine=%%i"
REM compare
set /a "key=%curLine%-%maxLine%"
if %key% gtr 0 ( 
	more +%key% "%logFile%" >"%~dp0tmp.txt"
	move /y "%~dp0tmp.txt" "%logFile%" >nul 2>nul
) 
复制代码