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

Запустите 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 программу функции Время_Пути для определения времени полета (см. предыдущую лаб. работу):

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

Function ЧасСтоим(ВремяВпути, Стоимость)

t = ВремяВпути * 24

ЧасСтоим = Стоимость / t

End Function

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

Введите в D2 формулу, вычисляющую время в пути

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

[1] Только не нужно говорить, что 1 января банки не работают – пример учебный.