China DOS Union

What Brother 12th Floor said, I'm a bit confused. Hehe

Bump

Not bad. But didn't understand. Hehe

That's really well written.

Support the building owner to add the function of querying dates for any year.
Believe that if you know what day of the week the first day of a year is, this function can be realized.
For any year year, the calculation formula for what day of the week the first day is is
(year + (year - 1) / 4 - (year - 1) / 100 + (year - 1) / 400) % 7
Note that the format here "/" is division, not the remainder, and "%" is the modulo operation. As long as the remainder
This year is 2007, then the first day can be calculated to be Monday

By adding new code in the building code, different years can be displayed. Except for BC, it should be fine. All changes are within comments, and the rest of the parts are unchanged

@echo off

mode con: lines=12 cols=40

setlocal enabledelayedexpansion

for %%a in (一,二,三,四,五,六,日) do (

set /a a+=1

set j!a!=%%a)



for %%b in (31,28,31,30,31,30,31,31,30,31,30,31) do (

set /a y+=1

set s!y!=%%b)





::::::::::::::::::::::::::::::Add year function

set /p year=Check which year?

cls

set /a year_chk1=year%%400

set /a year_chk2=year%%4

set /a year_chk3=year%%100

if %year_chk1% equ 0 set s2=29

if %year_chk2% equ 0 if %year_chk3% neq 0 set s2=29

::::::::::::::::::::::::::::::End of addition



set /p m=Check which month?

cls

set n=%m%

set /a n-=1





for /l %%c in (1,1,%n%) do (

set /a day+=!s%%c!)





set b=0



for /l %%d in (1,1,!day!) do (

set /a b+=1

if !b! equ 8 set b=1)



if %m% equ 1 set b=7







echo     一   二   三   四   五   六   日

echo.

set flag= 一二三四五六日一二三四五六日



:::::::::::::::::::::::::::::::::Add year function

set /a yearflag=(%year%+(%year%-1)/4-(%year%-1)/100+(%year%-1)/400)%%7

if %yearflag% equ 1 goto endadjust

if %yearflag% equ 0 set yearflag=7

set /a yearflag-=1

set /a yeartemp=0-yearflag

set flag= !flag:~%yeartemp%!一二三四五六日一二三四五六日

set flag=!flag:~0,15!

echo %flag%>C:\ag.txt

:endAdjust

:::::::::::::::::::::::::::::::::End of addition



for /l %%f in (1 1 13) do (



if "!flag:~%%f,1!"=="!j%b%!" (

if "!j%%f!"=="一" (set /p s=     <nul&set zh=6&goto next)

if "!j%%f!"=="二" (set /p s=          <nul&set zh=5&goto next)

if "!j%%f!"=="三" (set /p s=               <nul&set zh=4&goto next)

if "!j%%f!"=="四" (set /p s=                    <nul&set zh=3&goto next)

if "!j%%f!"=="五" (set /p s=                         <nul&set zh=2&goto next)

if "!j%%f!"=="六" (set /p s=                              <nul&set zh=1&goto next)

if "!j%%f!"=="日" (set /p s=<nul&set zh=7&goto next)

))





:next



for /l %%e in (1 1 !s%m%!) do (

set /a b+=1

if !b! equ 8 set b=1

if %%e lss 10 (set /p=    %%e<nul) else (set /p=   %%e<nul)

if !fl!==0 (set /a z+=1)



if !z!==7 (echo.&set z=0)

if %%e==!zh! (echo.

set fl=0

)

)

pause>nul

[ Last edited by my3439955 on 2007-4-24 at 12:39 PM ]

I just realized now that I'm quite inexperienced