@echo off
title 语音报时
mode con: cols=26 lines=4

:::::::::::::::::::::::::::::::::::::::::::
::                                       ::
::    新手练习作品    欢迎大家多提建议   ::
::                                       ::
::                      一起讨论学习     ::
::                                       ::
::            建议邮箱 sc.419@qq.com     ::
::                                       ::
:::::::::::::::::::::::::::::::::::::::::::


:读年
echo.
echo   %date:~0,4%年%date:~5,2%月%date:~8,2%日 %date:~11,3%
echo         %time:~0,2%点%time:~3,2%分
wav %date:~0,1%
wav %date:~1,1%
wav %date:~2,1%
wav %date:~3,1%
wav 年



:读月
if %date:~5,1% == 0 goto 月
if %date:~5,1% == 1 wav 十&goto 月
wav %date:~5,1%
wav 十
:月
if %date:~6,1% == 0 wav 月&goto 读日
wav %date:~6,1%
wav 月



:读日
if %date:~8,1% == 0 goto 日
if %date:~8,1% == 1 wav 十&goto 日
wav %date:~8,1%
wav 十
:日
if %date:~9,1% == 0 wav 日&goto 读星期
wav %date:~9,1%
wav 日



:读星期
wav 星期
if %date:~13,1% == 一 wav 1
if %date:~13,1% == 二 wav 2
if %date:~13,1% == 三 wav 3
if %date:~13,1% == 四 wav 4
if %date:~13,1% == 五 wav 5
if %date:~13,1% == 六 wav 6
if %date:~13,1% == 日 wav 日



:读点
if %time:~0,2% == 00 wav 0&wav 点&goto 读分
if %time:~0,1% == 0 goto 点
if %time:~0,1% == 1 wav 十&goto 点
wav %time:~0,1%
wav 十
:点
if %time:~1,1% == 0 wav 点&goto 读分
wav %time:~1,1%
wav 点



:读分
if %time:~3,2% == 00 wav 0&wav 分&goto 读秒
if %time:~3,1% == 0 wav 0&goto 分
if %time:~3,1% == 1 wav 十&goto 分
wav %time:~3,1%
wav 十
:分
if %time:~4,1% == 0 wav 分&goto 读秒
wav %time:~4,1%
wav 分



:读秒
set /a mm = %time:~6,2%+1
:没找到解决读秒不准的方法
cls
echo.
echo          %mm%秒
if %time:~6,2% == 00 wav 0&wav 秒&goto :eof
if %time:~6,1% == 0 wav 0&goto 秒
if %time:~6,1% == 1 wav 十&goto 秒
wav %time:~6,1%
wav 十
:秒
if %time:~7,1% == 0 wav 秒&goto :eof
wav %time:~7,1%
wav 秒
复制代码

@echo off
echo %date%  %time:~,8%
mshta vbscript:createobject("sapi.spvoice").speak("%date% %time:~,8%")(window.close)
复制代码