Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Пересчитать дату в дни... (http://forum.oszone.net/showthread.php?t=228036)

InVariable 16-02-2012 22:01 1860447

Пересчитать дату в дни...
 
Как посчитать день от Рождества Христова? Или от 1900 года? Нужен bat-файл или консольная программа (win).

Foreigner 16-02-2012 23:00 1860502

InVariable, на powershell все просто:
Код:

(new-timespan "01.01.0001" $(get-date)).days
В батнике (на больших сроках ошибка, увы):
Код:

:: Вычисление разницы в днях между
:: текущей датой и датой на выбор
@echo off
setlocal

:again
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 m-=1
if %m%==0 (set yd=0 && goto:skip)

:tok
set /a tok+=1
for /f "tokens=%tok%" %%i in ("31 %feb% 31 30 31 30 31 31 30 31 30 31") do (
    set /a yd+=%%i
    if not %tok%==%m% goto:tok
)

:skip
set /a res=y*365+y/4+29-feb+yd+d
set tok=
set yd=

if not defined res1 (
    set res1=%res%
    set /p date="Enter date: "
    goto:again
)

set /a res-=res1
if not %res%==0 (
    if %res:~0,1%==- (
        echo %res:~1% days from %date%
    ) else (
        echo %res% days to %date%
    )
) else (
    echo today is %date%
)


InVariable 17-02-2012 09:19 1860646

Спасибо! Всё получилось!


Время: 14:09.

Время: 14:09.
© OSzone.net 2001-