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

Запустите Excel

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

Присвойте ячейкам в столбцах 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 введите созданную вами функцию, выбрав ее из категории Определенные пользователем. Проверьте работоспособность созданной вами функции.

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