|
|
|
|
@ -1,5 +1,5 @@
@@ -1,5 +1,5 @@
|
|
|
|
|
' Создан: Пт 13 сен 2013 16:04:16 |
|
|
|
|
' Изменён: Сб 14 сен 2013 12:54:43 |
|
|
|
|
' Изменён: Пн 16 сен 2013 09:07:10 |
|
|
|
|
|
|
|
|
|
' Скрипт отображения меню столовой. |
|
|
|
|
' (c) 2013, Maxim Lihachev, <envrm@yandex.ru> |
|
|
|
|
@ -54,7 +54,7 @@ If WScript.Arguments.Count < 1 or today > 5 Then
@@ -54,7 +54,7 @@ If WScript.Arguments.Count < 1 or today > 5 Then
|
|
|
|
|
ElseIf WScript.Arguments.Item(0) = "today" Then |
|
|
|
|
' Меню на текущий день |
|
|
|
|
arrBlnHide = Array(True, True, True, True, True) |
|
|
|
|
arrBlnHide(today - 1) = False |
|
|
|
|
arrBlnHide(today - 2) = False |
|
|
|
|
End If |
|
|
|
|
|
|
|
|
|
' Заголовок таблицы с днями недели и датами |
|
|
|
|
|
