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

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

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

Присвойте ячейкам в столбцах 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
1	Направление	Время отправления	Время прибытия	Число полных суток	Время в пути
2	Москва	10:30	11:35	0
3	Челябинск	13:15	15:50	2
4	Владивосток	18:00	0:10	5
5	Мурманск	23:40	1:10	1

Запустите редактор 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
1	Направление	Время отправления	Время прибытия	Число полных суток	Время в пути
2	Москва	10:30	11:35	0	1:05:00
3	Челябинск	13:15	15:50	2	50:35:00
4	Владивосток	18:00	0:10	5	126:10:00
5	Мурманск	23:40	1:10	1	25:30:00

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

Запустите Excel

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

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

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

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

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

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

СервисМакросРедакторVisualBasic

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

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

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

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

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

End Function

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

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

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

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

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