Dim starttime As Variant, dtime As Variant, itogtime As Variant

4. В окне кода процедуры обработки события Click набрать для объекта cmdStart

starttime = Now

txtstart.Text = Format (starttime, "hh:mm:ss")

txtstop.Text = "": txtItog.Text = ""

5. В окне кода процедуры обработки события Click набрать для объекта cmdStop

endtime = Now

itogtime = endtime - starttime

txtstop.Text = Format (endtime, "hh:mm:ss")

txtItog.Text = Format (itogtime, "hh:mm:ss")

6. Проверьте работу программы. Результат показать преподавателю.

Часть

7. Откройте новый проект, установите следующие объекты и измените им свойства

Объект	Свойство	Значение
Рамки	Caption	Сегодня
Caption	Дата рождения (дд.мм.гг)
Caption	(отсутствует)
Caption	Сколько прожил дней
Caption	Ваш возраст
Метки	Name	LblDay
	Name	LblD
	Name	LblM
	Name	LblY
	Name	LblResult
	Name	LblLet
Командная кнопка	Name	CmdPusk
Caption	Пуск
Текстовое окно	Name	TxtDataR
	Text	(отсутствует)

8. Приведите свою форму в соответствие с образцом

9. В окне кода процедуры обработки события Click набрать для объекта cmdPusk