Задачи на bat-файлах 4 - [6] :: Microsoft Windows :: Компьютерный форум Ru.Board

Парни много лишнего но вот посмотрите исправьте если что не так !

Код:

@echo off
@cls
:::::::::::::::::::::::
@set y=0
@set m=0
@set d=0
@set m=0
@set vis=
@set feb=
@set year=%date:~6,4%"
@set month="%date:~3,2%"
@set day="%date:~0,2%"
if "%year% leq "2006" (goto :m) else (goto :run)
:m
if %month% leq "02" (goto

) else (goto :run)

if %day% lss "23" (echo NO DATE&&goto :eof) else (goto :run)
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:run
if %month%=="08" set month="8"
if %month%=="09" set month="9"
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
for /l %%a in (2000,4,3000) do @(if "%year%=="%%a" (set feb="29"&&set vis="BucokocHblu"&&goto :next) else (set feb="28"&&set vis="HE BucokocHblu"))
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:next
set /a y="%year%-"2006"
set /a m=%month%-"2"
set /a mm=%month%-"1"
@set /a q=(%day%-"23")*-"1"
@set /a qq=(%day%-"23")
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@if %month%==1 set md=31
if %month%==2 set md=%feb%
@if %month%==3 set md=31
@if %month%==4 set md=30
@if %month%==5 set md=31
@if %month%==6 set md=30
@if %month%==7 set md=31
@if %month%==8 set md=31
@if %month%==9 set md=30
@if %month%==10 set md=31
@if %month%==11 set md=30
@if %month%==12 set md=31
=================================
@if %mm%==1 set md=31
@if %mm%==2 set md=28
@if %mm%==3 set md=31
@if %mm%==4 set md=30
@if %mm%==5 set md=31
@if %mm%==6 set md=30
@if %mm%==7 set md=31
@if %mm%==8 set md=31
@if %mm%==9 set md=30
@if %mm%==10 set md=31
@if %mm%==11 set md=30
@if %mm%==12 set md=31
::-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=::
if %day% lss "23" (set /a y=%y%-1&&set /a m="%m%"-"1"&&set /a d="%md%"-"%q%") else (set /a d="%qq%")
if "%m%"=="-1" set m=11
if "%m%"=="-2" set m=10
::-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=::

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::======================================================================::
@col 14&&@echo.&&@echo %y% year %m% month %d% day (%vis%)&&@echo.&&col 10
::======================================================================::

Добавлено:
дата отсчета 23.02.2006.
Если не сложно по тестите во всех вариантах)

Модерирует : KLASS, IFkO
evle (19-03-2008 19:44): Лимит страниц. Задачи на bat-файлах 5	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103