Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно


Moderator


Сообщения: 53173
Благодарности: 15430

Профиль | Отправить PM | Цитировать


amel27, gora, я бы сделал так:
Код: Выделить весь код
@Echo Off
SetLocal EnableExtensions EnableDelayedExpansion

For /F "Tokens=1* Delims==" %%i In ('WMIC Path Win32_LocalTime Get /Value ^| Find "="') Do (
  Set V=%%j
  Set $%%i=!V:~0,-1!
)
If "%$DayOfWeek%"=="0" Set $DayOfWeek=7

For /F "Tokens=%$Month%" %%i In ("Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь") Do Set $MonthName=%%i
For /F "Tokens=%$DayOfWeek%" %%i In ("Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье") Do Set $DayOfWeekName=%%i

Echo --------------------------------------
Echo День          : %$Day%
Echo Месяц         : %$MonthName% (%$Month%-й месяц года)
Echo Год           : %$Year%
Echo --------------------------------------
Echo День недели   : %$DayOfWeekName% (%$DayOfWeek%-й день недели)
Echo Квартал       : %$Quarter%
Echo --------------------------------------
Echo Часов         : %$Hour%
Echo Минут         : %$Minute%
Echo Секунд        : %$Second%
Echo --------------------------------------
Pause>nul
Exit
  1. один вызов WMIC;
  2. исправление DayOfWeek (чтобы воскресенье было 7-м днем);
  3. удаление последнего символа (непонятного, типа возврат каретки) из переменных;
  4. на WeekInMonth забил (потому что воскресенье по их стандартам считается началом недели).

Последний раз редактировалось Petya V4sechkin, 15-04-2009 в 15:35.

Это сообщение посчитали полезным следующие участники:

Отправлено: 15:07, 15-04-2009 | #14