任意一个日期将其转换成相应的星期的代码怎么写。
如：2008/02/26
转换得到：星期二
如：2008/02/26
转换得到：星期二
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 日期转换星期
查看 1,303 回复 10
楼 主
日期转换星期
发表于 2008-02-26 12:38 · 中国 北京 联通
第 2 楼
发表于 2008-02-26 13:13 · 中国 上海 松江区 电信
第 3 楼
发表于 2008-02-26 13:36 · 中国 北京 华为云
datepart("w",date)
第 4 楼
回楼上
发表于 2008-02-26 13:40 · 中国 北京 联通
datepart("w",date)
这命令行似乎不行，命令err.
这命令行似乎不行，命令err.
第 5 楼
发表于 2008-02-26 13:51 · 中国 上海 松江区 电信
aDate = InputBox("请输入一个日期：", "BY: fastslz",date)
aWeek = DatePart("w", aDate)
Select Case aWeek
Case 1 Wscript.Echo "星期天"
Case 2 Wscript.Echo "星期一"
Case 3 Wscript.Echo "星期二"
Case 4 Wscript.Echo "星期三"
Case 5 Wscript.Echo "星期四"
Case 6 Wscript.Echo "星期五"
Case 7 Wscript.Echo "星期六"
End Select
第 6 楼
抱歉
发表于 2008-02-26 14:12 · 中国 北京 联通
以上代码是让我保存成bat来运行吗？还是其他
第 7 楼
发表于 2008-02-26 14:34 · 中国 北京 华为云
vbs
第 8 楼
发表于 2008-02-26 14:36 · 中国 上海 松江区 电信
我不是说了吗，vbs
这个bat的
这个bat的
@echo off
>tmp.vbs Echo aDate = InputBox("请输入一个日期：", "BY: fastslz",date)
>>tmp.vbs Echo aWeek = DatePart("w", aDate)
>>tmp.vbs Echo Select Case aWeek
>>tmp.vbs Echo Case 1 Wscript.Echo "星期天"
>>tmp.vbs Echo Case 2 Wscript.Echo "星期一"
>>tmp.vbs Echo Case 3 Wscript.Echo "星期二"
>>tmp.vbs Echo Case 4 Wscript.Echo "星期三"
>>tmp.vbs Echo Case 5 Wscript.Echo "星期四"
>>tmp.vbs Echo Case 6 Wscript.Echo "星期五"
>>tmp.vbs Echo Case 7 Wscript.Echo "星期六"
>>tmp.vbs Echo End Select
for /f "delims=" %%i in ('cscript.exe //nologo tmp.vbs') do set aDate=%%i&del tmp.vbs
Echo %aDate%
pause
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| Climbing | +10 | 2008-02-27 10:12 |
第 9 楼
发表于 2008-02-26 14:37 · 中国 北京 联通
好的谢谢
第 10 楼
发表于 2008-02-27 14:05 · 中国 陕西 西安 电信
bat版本的:
其实关于星期计算有:
基姆拉尔森计算公式
W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7
在公式中d表示日期中的日数＋1，m表示月份数，y表示年数
只是这个算法比上面的算法复杂,代码也长.
[ Last edited by plp626 on 2008-2-27 at 02:09 PM ]
@echo off
:支持2008年,其他年份算法类似
:没有容错处理
:s
set "mod=145136140250"
set /p rq=输入:月/日
for /f "delims=/ tokens=1,2" %%a in ("%rq%") do set d=%%b&call set n=%%mod:~,%%a%%
set s=%n:~-1%
set/a w=(%d%+%s%)%%7
if %w% equ 0 set w=日
echo 2008/%rq%这一天是:星期%w%&echo.
goto :s其实关于星期计算有:
基姆拉尔森计算公式
W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7
在公式中d表示日期中的日数＋1，m表示月份数，y表示年数
只是这个算法比上面的算法复杂,代码也长.
[ Last edited by plp626 on 2008-2-27 at 02:09 PM ]
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| abcd | +8 | 2008-02-27 14:15 |
第 11 楼
发表于 2008-05-11 15:11 · 中国 广东 东莞 电信
@ECHO OFF
set /a y = %date:~0,4%
if %date:~5,1% EQU 0 set /a m = %date:~6,1%
if %date:~5,1% NEQ 0 set /a m = %date:~5,2%
if %date:~8,1% EQU 0 set /a d = %date:~9,1%
if %date:~9,1% NEQ 0 set /a d = %date:~8,2%
if %m% EQU 1 set /a m = 13
if %m% EQU 2 set /a m = 14
set /a w = (d + 2*m+3*(m+1)/5+y+y/4-y/100+y/400) - ((d + 2*m+3*(m+1)/5+y+y/4-y/100+y/400)/7)*7 + 1
set /a yy = (y - 4*(y/4))
if %m% EQU 13 if %yy% EQU 0 set /a w = w -2
if %m% EQU 14 if %yy% EQU 0 set /a w = w -2
if %m% EQU 13 if %yy% NEQ 0 set /a w = w - 1
if %m% EQU 14 if %yy% NEQ 0 set /a w = w - 1
if %w% EQU -1 set /a w = 6
if %w% EQU 0 set /a w = 7
IF %w% == 6 echo 今天是星期六
IF %w% == 7 echo 今天是星期天
pause
set /a y = %date:~0,4%
if %date:~5,1% EQU 0 set /a m = %date:~6,1%
if %date:~5,1% NEQ 0 set /a m = %date:~5,2%
if %date:~8,1% EQU 0 set /a d = %date:~9,1%
if %date:~9,1% NEQ 0 set /a d = %date:~8,2%
if %m% EQU 1 set /a m = 13
if %m% EQU 2 set /a m = 14
set /a w = (d + 2*m+3*(m+1)/5+y+y/4-y/100+y/400) - ((d + 2*m+3*(m+1)/5+y+y/4-y/100+y/400)/7)*7 + 1
set /a yy = (y - 4*(y/4))
if %m% EQU 13 if %yy% EQU 0 set /a w = w -2
if %m% EQU 14 if %yy% EQU 0 set /a w = w -2
if %m% EQU 13 if %yy% NEQ 0 set /a w = w - 1
if %m% EQU 14 if %yy% NEQ 0 set /a w = w - 1
if %w% EQU -1 set /a w = 6
if %w% EQU 0 set /a w = 7
IF %w% == 6 echo 今天是星期六
IF %w% == 7 echo 今天是星期天
pause
论坛跳转: