Dim dd, dr As Date

Часть

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

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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 8

End If

End

End If

Exit Sub

MsgBox "Ну и иди отсюда", 16, "Мы обиделись"

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

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

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

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

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

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. Проверьте работу программы

Дата добавления: 2014-12-25