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

Запустите Excel

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

 

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

 

Присвойте ячейкам в столбцах B, C, D числовой формат Время

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

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

 

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

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

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

Function Время_пути(Вылет, Прилет)

v = Вылет

p = Прилет

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

Время_пути = t

End Function

 

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

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

 

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