Лабораторно-практическая работа № 8

Тема: Встроенные функции

Цель: Получить навыки использования функций времени и даты

Порядок выполнения

1. Установите на форме следующие объекты и измените им свойства 1 часть

   Объект	Свойство	Значение
   Метки	Caption	Время старта
   	Caption	Время окончания
   	Caption	Сколько прошло
   Командные кнопки	Name	CmdStart
   	Caption	Start
   	Name	CmdStop
   	Caption	Stop
   Текстовые окна	Name	TxtStart
   	Text	(отсутствует)
   	Name	TxtStop
   	Text	(отсутствует)
   	Name	TxtItog
   	Text	(отсутствует)

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

3. В разделе общих объявлений набрать General Declarations

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. Проверьте работу программы. Результат показать преподавателю.

2 Часть

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

Dim dd, dr As Date

dd = Date

dr = TxtDataR.Text

LblDay.Caption = dd

LblD.Caption = Day(dr)

LblM.Caption = Month(dr)

LblY.Caption = Year(dr)

LblResult.Caption = dd - dr

LblLet.Caption = Format(dd - dr, "yy")

10. Проверьте работу программы