pusofalse

回随风兄，代码已经修改~

随风

用vbs就太简单了，要求是用纯p
pusofalse 的代码能达到要求，但效率有待提高，试试输入 100000 看看。。
另：不必输入今天是星期几，就以当前星期为准就好了。。

[ 本帖最后由 随风 于 2008-10-16 21:52 编辑 ]

fastslz

不是纯P的，在联盟我曾回复过此类日期的计算贴，本想集中到某个贴子中，只是太忙了....

@echo off
>星期计算.vbs Echo  aDate = InputBox("请输入一个日期：", "BY: fastslz",date)
>>星期计算.vbs Echo  Wscript.Echo WeekDayName(DatePart("w", aDate))
for /f "delims=" %%i in ('cscript.exe //nologo 星期计算.vbs') do set aDate=%%i&del 星期计算.vbs
Echo %aDate%
pause
复制代码

@echo off
>星期计算.vbs Echo  a = InputBox("计算昨天请输入-1，明天输入1，后天输入2，以此类推：", "BY: fastslz")
>>星期计算.vbs Echo  aDate=FormatDateTime (DateAdd("d", a ,Date),2)
>>星期计算.vbs Echo  Wscript.Echo WeekDayName(DatePart("w", aDate))
for /f "delims=" %%i in ('cscript.exe //nologo 星期计算.vbs') do set aDate=%%i&del 星期计算.vbs
Echo %aDate%
pause
复制代码

 
@echo off
>周计算.vbs Echo  aDate = InputBox("请输入一个日期：", "BY: fastslz",date)
>>周计算.vbs Echo Wscript.Echo  "0" ^&Right(Year(aDate) ,1)^&"年"  ^& DatePart("ww", aDate)^&"周"
for /f "delims=" %%i in ('cscript.exe //nologo 周计算.vbs') do set aDate=%%i&del 周计算.vbs
Echo %aDate%
pause
复制代码

 
@echo off
>天计算.vbs Echo  aDate = InputBox("请输入一个日期：", "BY: fastslz",date)
>>天计算.vbs Echo Wscript.Echo Year(aDate) ^&"年第" ^& DatePart("y", aDate) ^& "天"
for /f "delims=" %%i in ('cscript.exe //nologo 天计算.vbs') do set aDate=%%i&del 天计算.vbs
Echo %aDate%
pause
复制代码

pusofalse

先来抛砖：

@echo off
:loop
cls&setlocal enabledelayedexpansion
for %%a in (一 二 三 四 五 六 天) do set/a n+=1&set ".!n!=%%a"
set /p var=几天前/后? 
set/a s=var, x=4
set/a var%%=7
if "%var:~,1%" equ "-" (
   set "op=+"&set "str=后"
   set /a m=8,y=1
   ) else (
   set "op=-"&set "str=前"
   set /a m=0,y=7
)
for /l %%a in (1 1 %var:-=%) do (
      set/a x%op%=1
      if !x! equ %m% set x=%y%
)
echo %s:-=% 天%str%是星期!.%x%!
endlocal
pause>nul&goto loop
复制代码

[ 本帖最后由 pusofalse 于 2008-10-16 21:57 编辑 ]

batman

是不难，故先不做答，期待新人的表现。

随风

此题应该不难，关键是思路。。

pusofalse

一个链环~ 让我想起约瑟夫环的问题。