16.2. Работа с часами и календарем

Процедура

Действие

GetDate(VAR Year, Month, Day, DW : Word)

SetDate(Year, Month, Day : Word)

Считывает год, месяц, число и день во встроенных часах ПЭВМ

Устанавливает год, месяц и число во встроенных часах

GetTime(VAR Hour, Min, Sec, Sec100 : Word)

SetTime(Hour, Min, Sec, Sec100 : Word)

Считывает текущее время по встроенным часам ПЭВМ

Устанавливает новое время во встроенных часах ПЭВМ

PackTime(VAR DT : DateTime; VAR T : LongInt)

UnPackTime(T : LongInt; VAR DT : DateTime)

Создает компактную запись даты и времени для назначения ее файлу

Распаковывает запись даты и времени, считанную в файле

GetFTime(VAR f; VAR T : LongInt)

SetFTime(VAR f; T : LongInt)

Считывает компактную запись даты и времени для открытого файла f

Записывает компактную запись даты и времени для открытого файла f

{ДЕМОНСТРАЦИЯ ОПРЕДЕЛЕНИЯ ДНЯ НЕДЕЛИ ПО ДАТЕ }

USES DOS;

TYPE

DayString = String[11];

CONST

Days : Array [1..7] of DayString = { дни недели }

( 'Понедельник', 'Вторник , 'Среда', 'Четверг',

'Пятница', 'Суббота', 'Воскресенье' );

{ Функция возвращает название дня недели по дате.}

FUNCTION WhatDay( Year, Month, Day : Word ) : DayString;

VAR

Y, M, D, n : Word;

BEGIN

GetDate( Y, M, D, n ); { запоминание текущей даты }

SetDate( Year,Month,Day ); { установка даты из запроса }

GetDate( Year,Month,Day,n); {получение по ней номера n }

WhatDay := Days[n]; { номер n дает название дня }

SetDate(Y, M, D ) { восстановление даты в ПЭВМ }

END;

VAR { -- ПРИМЕР ВЫЗОВА -- }

у, m, d : Word;

BEGIN

Write( 'Введите год ' ); ReadLn( у );

Write( 'Введите месяц' ); ReadLn( m );

Write( 'Введите число' ); ReadLn( d );

WriteLn;

WriteLn(d:2,'/', m:1,'/',y:4,'-->',WhatDay(y,m,d));

ReadLn { пауза до нажатия клавиши ввода }

END.

USES DOS;

VAR

h, min, s, ms : Word; { отсечки времени по часам }

Time : Real; { время работы в секундах }

BEGIN

GetTime( h, min, s, ms ); { начало работы программы }

{ время начала программы в секундах : }

Time := ( h*60 + min )*60 + s + ms/100;

{ === программа работает - время идет === }

Write(' Нажмите ENTER' ); ReadLn;

GetTime( h, min, s, ms ); { конец работы программы }

{ время работы программы в секундах : }

Time := ( h*60 + min )*60 + s + ms/100 - Time;

ms:= Trunc( 100 * Frac( Time ) ); { миллисекунды }

h := Trunc( Time ) div 3600; { часы }

min := Trunc( Time-3600*h ) div 60; { минуты }

s := Trunc( Time-3600*h ) mod 60: { секунды }

WriteLn( 'Активное время работы , h:1,' ч ',

min:1, ' мин ', s:1, ',' , ms:1, ' с' );

ReadLn { пауза... }

END.