[Foreigner]

високосным является не год, который делится без остатка на 4 »

Я что-то не пойму. Например возьмем год 1900. Если тупо отнимать по 4 года с 2012, то 1900 попадает на високосный:

Код:

 > for /l %i in (2012,-4,1900) do @echo %i
2012
2008
2004
2000
1996
1992
1988
1984
1980
1976
1972
1968
1964
1960
1956
1952
1948
1944
1940
1936
1932
1928
1924
1920
1916
1912
1908
1904
1900

Но если проверить:

Код:

 > [datetime]::isleapyear("1900")
False

Код:

for ( $i=2012; $i -ge 0; $i-- ) {

    if ( $($i%4) -eq 0 ) { 

        if ( !([datetime]::isleapyear($i)) ) { $i }

    }

}

Исходя из PowerShell ниже все не високосные, но делятся без остатка на 4

1900 1800 1700 1500 1400 1300 1100 1000 900 700 600 500 300 200 100

Или здесь не математика, а астрономия?

[CyberMuesli]

Цитата CyberMuesli: високосным является не год, который делится без остатка на 4 » Я что-то не пойму »

http://ru.wikipedia.org/wiki/%C2%E8%...B%E9_%E3%EE%E4

Код:

    set /a Mod4=%%i   %% 4
    set /a Mod100=%%i %% 100
    set /a Mod400=%%i %% 400

    set IsLeapYear=No
    if !Mod400!==0 (
       set IsLeapYear=Yes
    ) else (
       if !Mod4!==0 (
           if not !Mod100!==0 (
              set IsLeapYear=Yes
           )
       )
    )

[Foreigner]

CyberMuesli,
Астрономия. Но для бекапов сойдет и x%y

[CyberMuesli]

Астрономия. Но для бекапов сойдет и x%y »

Для бэкапов сойдет и вообще без високосного. Пока он наступит - Вы уже уволились и перешли на другую работу.

[dvassilyev]

CyberMuesli, да и такое бывает

[sov44]

Нужно создать переменные некоторого диапазона прошедших дней. Столкнулся с проблемой раскрытия в "tokens=!tok!" в цикле. Есть идеи?

Код:

@echo off
setlocal enabledelayedexpansion

for /l %%a in (5,1,9) do (

set d=%date:~0,2%
set m=%date:~3,2%
set y=%date:~6,4%

if "!d:~0,1!"=="0" set d=!d:~1!
if "!m:~0,1!"=="0" set m=!m:~1!

set /a feb=y%%4
if "!feb!"=="0" (set feb=29) else (set feb=28)

set /a tok=m-1
if "!tok!"=="0" set tok=12

for /f "tokens=!tok!" %%i in ("31 !feb! 31 30 31 30 31 31 30 31 30 31") do (
   set /a d-=%%a
    if !d!==0 (
        set d=%%i
        set m=%tok%
        if !m!==12 set /a y-=1
    )
)

set d=0!d!
set m=0!m!
set yesterday=!d:~-2!.!m:~-2!.!y!

echo !yesterday!_%%a
)
pause

[Iska]

Столкнулся с проблемой раскрытия в "tokens=!tok!" в цикле. »

Там не должно быть «!Var!».

Есть идеи? »

Использовать иной подход. Или вынести эту часть в отдельную процедуру. Значение «tok» передавайте в неё параметром.

[Foreigner]

sov44, Вынести за пределы цикла?

Код:

@echo off
setlocal enabledelayedexpansion

for /l %%a in (5,1,9) do (

set d=%date:~0,2%
set m=%date:~3,2%
set y=%date:~6,4%

if "!d:~0,1!"=="0" set d=!d:~1!
if "!m:~0,1!"=="0" set m=!m:~1!

set /a feb=y%%4
if "!feb!"=="0" (set feb=29) else (set feb=28)

set /a tok=m-1
if "!tok!"=="0" set tok=12

call:1 %%a

set d=0!d!
set m=0!m!
set yesterday=!d:~-2!.!m:~-2!.!y!

echo !yesterday!_%%a
)
pause

goto:eof

:1
for /f "tokens=%tok%" %%i in ("31 !feb! 31 30 31 30 31 31 30 31 30 31") do (
   set /a d-=%1
    if !d!==0 (
        set d=%%i
        set m=%tok%
        if !m!==12 set /a y-=1
    )
)

[vladobro87]

Нужно было вывести даты с шагом в 7 дней. На самом деле можно вычитать любое количество дней из даты и задавать любое количество шагов:
Так что не только текущая дата минус одна неделя.

Код:

@echo off
setlocal enabledelayedexpansion

set date=08.03.2021
set n=7
set m=20

echo.
echo Start:	%date%
echo Day:	-%n%
echo Step:	%m%
echo.

for /l %%i in (1,1,%m%) do (
call :date
)
pause > nul
exit

:date
set d=%date:~0,2%
set m=%date:~3,2%
set y=%date:~6,4%

if %d:~0,1%==0 set d=%d:~1%
if %m:~0,1%==0 set m=%m:~1%

set /a feb=y%%4
if %feb%==0 (set feb=29) else (set feb=28)

set /a tok=m-1
if %tok%==0 set tok=12
for /f "tokens=%tok%" %%i in ("31 %feb% 31 30 31 30 31 31 30 31 30 31") do (
   set /a d-=7
    if !d! LSS 0 (
        set /a d=%%i!d!
        set m=%tok%
        if !m!==12 set /a y-=1
    )
	if !d! EQU 0 (
        set d=%%i
        set m=%tok%
        if !m!==12 set /a y-=1
	)
)
set d=0%d%
set m=0%m%
set date=%d:~-2%.%m:~-2%.%y%

echo %date%
exit /b

[megaloman]

vladobro87, В чем новизна? 11 лет тому назад здесь было сделано.
Здесь этот код применён в слегка модифицированном виде - процедура, ИМХО, более удобна в применении и увеличина надёжность.