Установка даты и времени

Модуль Dos предоставляет возможность доступа к системным часам и календарю, а также позволяет изменить дату и время создания файла.

Процедура GetDate (Var Year, M, Day, D: word); возвращает текущую дату, установленную в ОС.

Процедура SetDate (Var Year, M, Day, D: word); устанавливает текущую дату в ОС.

Параметры принимают следующие значения: Year (год) - от 1980 до 2099, M (месяц) – от 1 до 12, Day (число) - от 1 до 31, D (день недели) – от 0 до 6, где 0 означает воскресенье.

Процедура GetTime (Var Hour, Min, Sec, Ssec: word); возвращает установленное в ОС текущее время.

Процедура SetTime (Var Hour, Min, Sec, Ssec: word); устанавливает в ОС текущее время.

Параметры принимают следующие значения: Hour (час) - от 0 до 23, Min (минута) – от 0 до 59, Sec (секунда) – от 0 до 59, Ssec (сотая доля секунды) – от 0 до 99.

Процедура GetFTime (Var F; Var Time: LongInt); возвращает время и дату создания файла, связанного с файловой переменной F. Время и дата возвращаются в переменную Time в упакованном формате.

Для их распаковки используется процедура UnpackTime (Time: LongInt, Var DT: DateTime).

Параметр DateTime имеет тип «запись», описанный в модуле Dos:

Type DateTime = Record

Year, Month, Day, Hour, Min, Sec: word

end;

Чтобы изменить дату и время создания файла, используются процедуры PackTime и SetTime.

Процедура PackTime (Var T: DateTime; Var Time: LongInt); преобразует значение параметра T в упакованный формат, который затем используется процедурой SetFTime.

Процедура SetFTime (Var F; Time: LongInt); устанавливает дату создания файла. Файл, для которого необходимо изменить дату создания, должен быть открыт для чтения.