Задание 2. Функция, автоматизирующая расчет времени в пути для поезда

Запустите Excel. Введите таблицу по образцу, предложенному ниже.

 

	A	B	C	D	E
	Направление	Время отправления	Время прибытия	Число полных суток	Время в пути
	Москва
	Челябинск
	Владивосток
	Мурманск

 

Присвойте ячейкам в столбцах B, C числовой формат Время, тип 13:30.

Присвойте ячейкам в столбце E числовой формат Время, тип 37:30:55

Присвойте ячейкам в столбце D – числовой формат Числовой без десятичных знаков.

 

Время в числовом формате— это десятичная дробь в интервале от 0 (нуля) до 0,99999999, представляющая время от 0:00:00 (12:00:00 ночи) до 23:59:59 (11:59:59 вечера).

 

Введите в столбцы B и C данные - время отправления, время прибытия. Время при этом вводится через двоеточие (часы:минуты).

Введите в столбец D данные - число полных суток.

	A	B	C	D	E
	Направление	Время отправления	Время прибытия	Число полных суток	Время в пути
	Москва	10:30	11:35
	Челябинск	13:15	15:50
	Владивосток	18:00	0:10
	Мурманск	23:40	1:10

 

Запустите редактор VBA последовательностью команд

СервисèМакросèРедакторèVisual Basic

Выполните команду Вставкаèи создайте новый модуль. Выберите его значок в окне проекта, чтобы активизировать окно редактора для создания собственной функции. В открывшемся окне напишите на VBA программу функции ПоездВпути для определения времени поезда в пути в часах:

Function ПоездВпути(Отправление, Прибытие, Суток)

v = Отправление

p = Прибытие

s = Суток

If p > v Then t = p - v Else t = 1 + p - v

ПоездВпути = t + s

End Function

 

Активизируйте лист Excel. В ячейку Е2 введите созданную вами функцию, выбрав ее из категории Определенные пользователем. Проверьте работоспособность созданной вами функции.

В результате таблица должна иметь следующий вид:

 

	A	B	C	D	E
	Направление	Время отправления	Время прибытия	Число полных суток	Время в пути
	Москва	10:30	11:35		1:05:00
	Челябинск	13:15	15:50		50:35:00
	Владивосток	18:00	0:10		126:10:00
	Мурманск	23:40	1:10		25:30:00

Лабораторная работа 6

Создание и использование макросов