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

Запустите Excel

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

 

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

 

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

 

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

 

Направление	Время отправления	Время прибытия	Время в пути	Стоимость билета	Часовая стоимость полета
Москва	10:30	11:35	1:05:00		1107,69
Челябинск	13:15	15:50	2:35:00		994,84
Владивосток	18:00	0:10	6:10:00		778,38

 

 

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