====== AS/400: Системная дата и время ======
====== Показать системное время ======
DSPSYSVAL SYSVAL(QTIME)
Показать системное значение
Системное значение . . : QTIME
Описание . . . . . . . : Время
Время . . . . . . . . : 17:58:37 ЧЧ:MM:СС
====== Изменить системное время ======
CHGSYSVAL SYSVAL(QTIME) VALUE('HHMMSS')
|HH|часы|
|MM|минуты|
|SS|секунды|
Другие переменные:
''QTIME, QHOUR, QMINUTE, QSECOND''
:!: Изменение системного времени вызывает ошибку при печати этикеток из программ УЧЕТ ПРОДУКЦИИ
Нужно менять системное время когда эти программы не работают или перезагружать программы сразу после изменения системного времени.
====== Показать системную дату ======
''DSPSYSVAL SYSVAL(QDATE)''
Показать системное значение
Системное значение . . : QDATE
Описание . . . . . . . : Системная дата
Дата . . . . . . . . . : 02.11.04 ДД.MM.ГГ
Другие переменные:
''QDAYOFWEEK, QDATE, QDAY, QMONTH, QYEAR''
====== Показать разность между текущим врем. и врем. по Гринвичу ======
DSPSYSVAL SYSVAL(QUTCOFFSET)
Показать системное значение
Системное значение . . : QUTCOFFSET
Описание . . . . . . . : Разность между текущим врем. и врем. по Гринвичу
Смещение . . . . . . . : +03:00 От -24:00 до +24:00
====== Изменить разность между текущим врем. и врем. по Гринвичу ======
WRKSYSVAL SYSVAL(QUTCOFFSET)
====== Переход на летнее/зимнее время ======
1. Изменить разность между текущим врем. и врем. по Гринвичу
На за летнее время:
CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('+0400')
На зимнее время:
CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('+0300')
2. [[#Изменить системное время|Изменить системное время]]
{{tag>AS/400 Date_Time}}