Основы алгоритмизации и программирования. Создадим проект, позволяющий печатать текущую дату и количество дней, прошедших с начала третьего тысячеле­тия

Создадим проект, позволяющий печатать текущую дату и количество дней, прошедших с начала третьего тысячеле­тия.

Проект «Дата»

1. Разместить на форме кнопку cmdl и ввести событийную
процедуру cmdl_Click ():

Dim dtmA, dtmB As Date

Sub cmdl_Click()

dtmA = Date

dtmB = #1/1/2001*

Print "Сегодня "; dtmA

Print " С начала третьего тысячелетия прошло

"; dtmA - dtmB; " дней"

End Sub

2. Запустить проект и щел- ^ШШШШШШШШШШКШШШШШШШШМШШ
кнуть по кнопке Дата, сегодня 31 оз 2002

__, _. С начала третьего тысячелетия прошло 454 дней

На форме будет напеча­
тано текущее число и ко- ________

личество дней, прошед­ших с начала третьего тысячелетия.

Дета

*%>££"

Проект хранится в каталоге _{гп впм}
\textbook\VB\prjVB9\ _____________ ш-ним

Функция Time$. Функция Time$ возвращает значение текущего времени, имеющее тип String, которое можно вывести в текстовое поле. Значение времени представляется в виде тройки чисел #Часы:Минуты:Секунды*, разделен­ных знаком «:».

Для периодического обновления значения времени исполь­зуем объект Timer. Объект Timer не отображается на форме в процессе выполнения программы и реализует всего одну фун­кцию — проверяет показания системных часов по событию Timer.

Периодичность события Timer может быть задана с помо­щью значения свойства Interval, задаваемого в миллисе­кундах (может изменяться от 0 до 65535). Для того чтобы событие Timer происходило каждую секунду, необходимо свойству Interval присвоить значение 1000.

Создадим проект, выводящий текущее время в текстовое поле каждую секунду.