ТЕМА: ПРОГРАММИРОВАНИЕ ЗАДАЧ С ИСПОЛЬЗОВАНИЕМ ТИПА ДАТЫ И ВРЕМЕНИ

Цель работы: Изучение методов программирования задач с использованием типа даты и времени.

План работы:Разработать алгоритм программы с использованием функций обработки даты и времени.

Теоретический материал:

Данные типа дата/время представлены в среде Visual Basic 8-байтовыми вещественными значениями (так называемый формат IEEE 64-bit). Диапазон допустимых дат — от 1 января 100 г. до 31 декабря 9999. Целая часть вещественного значения соответствует количеству дней, предшествовавших нулевой отметке или прошедших после точки начала отсчета. За нулевую отметку выбрана полночь 30 декабря 1899 года. Даты, предшествующие нулевой отметке отрицательны. Нулевое значение дробной части соответствует началу суток после полуночи, в полдень дробная часть даты достигает величины 0.5, к концу суток дробная часть приближается к 1, что соответствует показанию часов 23:59:59.

Переменные, в которых предполагается размещать значения дат и/или времени могут быть двух типов — специализированные типа Date и универсальные типа Variant. В примере, приведенном на рис. 9.1, d1 — специализированная переменная, а d2 — универсальная. Разница между ними в занимаемой оперативной памяти и в скорости выполнения операций. Естественно, что формат универсальных данных требует больше места в памяти, и обработка таких значений сопряжена с дополнительными накладными расходами.

 

В наших визуальных средах чаще всего используются два объекта, отображающие время или диапазон дат — DTPicker (в VB) или DateTimePicker (в BCB и Delphi) и MonthView (в VB) или MonthCalendar (в BCB и Delphi). В системе Visual Basic вы должны зайти в раздел главного меню Project, выполнить команду Components, нажать кнопку Browse и выбрать файл mscomct2.ocx. В системах BCB и Delphi аналогичные компоненты размещены на закладке Win32. Внешний вид однотипных компонент в разных системах почти одинаков, однако набор свойств, доступных программисту несколько отличается, — в системе Visual Basic их немного больше. В системах BCB и Delphi недостающие свойства компенсируются соответствующими методами.

Объект DateTimePicker представляет собой гибрид календаря, отображающего текущую или заданную дату, часов и комбинированного окна ввода. Он имеет два варианта представления, определяемых значением свойства DateMode.

По умолчанию DateMode=dmComboBox и во время работы приложения щелчок по кнопке раскрывает календарь, соответствующий установленной или текущей дате. Кнопки со стрелками вправо и влево позволяют перемещаться на соседние месяцы и даже перешагивать через границы года в диапазоне дат, определенном значениями свойств MinDate, MaxDate. Щелчок по дате календаря приводит к ее переносу в окно ввода. Окно ввода устроено довольно нестандартно. Каждая компонента даты может быть выделена отдельно, и тогда ее можно изменить путем набора нужного значения на клавиатуре. Когда используется длинный формат даты (DateFormat=dtLong) и месяц отображается не числом, а словом, то изменение месяца все равно производится набором числа от 1 до 12. Объект DateTimePicker удобен еще и тем, что он автоматически следит за правильностью набора даты.

Если установить DateMode=UpDown, то объект лишается выпадающего календаря и обеспечивает только ввод новой даты или отображение значения свойства Date, установленное тем или иным путем. На способ отображения даты влияет строка, содержащая от одного до четырех символов, установленных в свойстве Format. Здесь используются те же сочетания, что и в свойстве FormatString.

Для того, чтобы в окне ввода отображалось время достаточно изменить значение свойства Kind=dtkTime. В этом случает содержимое окна ввода и значение свойства Time будут совпадать, но объект будет представлен только в формате UpDown.

Свойство CalAlignment позволяет прижать дату или время, отображаемые в окне ввода к левой (по умолчанию CalAlignment=dtaLeft) или к правой (dtaRight) границе.

Объект DTPicker в системе Visual Basic имеет практически такой же внешний вид. Выбор варианта использования управляется свойствами UpDown (True или False) и Format (dtpLongDate, dtpShortDate, dtpTime и dtpCustom). Среди его свойств присутствуют такие как Day, DayOfWeek, Month, Week и Year, с помощью которых можно извлечь любую компоненту из значения установленной даты (свойство Value). Свойство CustomFormat используется для формирования пользовательского шаблона отображения дат подобно тому.

Объект MonthCalendar (BCB, Delphi) предназначен для отображения календаря на текущий или заданный месяц. По сравнению с календарем в объекте DateTimePicker здесь имеется возможность вывести в левой колонке номера недель (WeekNumbers=True).

Объект MonthCalendar

Аналогичный объект MonthView в системе Visual Basic располагает свойствами MonthRows и MonthColumns, с помощью которых можно отобразить календарь сразу на несколько месяцев. На рисунке представлен вариант с двумя строками и двумя столбцами.

 

Пример. Разработать программное приложение, которое по вводимой пользователем датой рождения будет определять день недели рождения, знак зодиака, соответствующий дате рождения, и количество полных лет.

Разработаем приложение с использованием компонентов Label, TextBox, CommandButton и нового компонента для отображения даты DTPicker.