Главная » Free Pascal » Опрос значений системных переменных Free Pascal

0

Для обработки календарных дат и компонентов времени программа может ис- пользовать значения специальных переменных, отслеживающих текущие показа- ния системных часов компьютера, а также дат вчерашнего, сегодняшнего и зав- трашнего дней. Список этих переменных, из которых разрешено только чтение, приведен в табл. 14.3.

Таблица 14.3

Формат опроса

Получаемое значение

dt:= Date;

Текущая дата с нулевыми компонентами времени

dt:= Time;

Текущее время с нулевой календарной датой

dt:= Now;

Текущая дата и текущее время

dt:= Today;

Дата текущего дня (эквивалент Date)

dt:= Tomorrow;

Дата завтрашнего дня с нулевым временем

dt:= Yesterday;

Дата вчерашнего дня с нулевым временем

Нулевая календарная дата соответствует точке начала отсчета в модифициро- ванном юлианском календаре, т. е. 30 декабря 1899 г.

Для работы с указанными системными переменными необходимо подключать модуль SysUtils (листинг 14.5).

Листинг 14.5. Программа date5

program date5;

uses DateUtils, SysUtils; var

Fmt:string=’dd/mm/yyyy hh:nn:ss.zzz';

begin

writeln(‘Now : ‘,FormatDateTime(Fmt, Now)); writeln(‘Time : ‘,FormatDateTime(Fmt, Time)); writeln(‘Date : ‘,FormatDateTime(Fmt, Date)); writeln(‘Today: ‘,FormatDateTime(Fmt, Today)); writeln(‘Yesterday : ‘,FormatDateTime(Fmt, Yesterday)); writeln(‘Tomorrow : ‘,FormatDateTime(Fmt, Tomorrow)); readln;

end.

Результаты работы программы date5.pas таковы:

Running "e:\fpc\myprog\date5.exe "

Now : 22.11.2009 18:25:48.421

Time : 30.12.1899 18:25:48.421

Date : 22.11.2009 00:00:00.000

Today: 22.11.2009 00:00:00.000

Yesterday : 21.11.2009 00:00:00.000

Tomorrow : 23.11.2009 00:00:00.0000

Источник: Кетков, Ю. Л., Свободное программное обеспечение. FREE PASCAL для студентов и школьников, Ю. Л. Кетков, А. Ю. Кетков. — СПб.: БХВ-Петербург, 2011. — 384 с.: ил. + CD-ROM — (ИиИКТ)

По теме:

  • Комментарии