Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2018, 21:10   #1
NewStudents
Пользователь
 
Аватар для NewStudents
 
Регистрация: 09.12.2017
Сообщений: 20
Лампочка Время до отправления поезда

Товарищи, здравствуйте!

Задача следующая: Поезд прибывает на станцию в a часов b минут и отправляется в c часов d минут. Пассажир пришел на платформу в n часов m минут. Определить процедуру, выводящую на экран время, оставшееся у пассажира до отправления ближайшего поезда. Числа a,b,c,d,n,m – целые, 0 <= a <= 23, 0 <= b <=59, 0 <= c <= 23, 0 <= d <=59, 0 <= n <= 23, 0 <= m <=59.

Программа написана и работает исправно, но в задании указано использование ПОДПРОГРАММ (с последующим составлением блок-схем для самой программы и для подпрограммы в отдельности, с этим я справлюсь). Подскажите пожалуйста, как можно модернизировать код программы? Да и что вообще считаете по поводу этого кода. Может чего изменить требуется.
Код:
Private Sub CommandButton1_Click()
Dim A As Date, B As Date, C As Date
A = InputBox("Введите время отправления поезда (через двоеточие)")
B = InputBox("Введите время прибытия пассажира (через двоеточие)")
C = IIf(A < B, (CDate("23:59") - B) + A + CDate("00:01"), A - B)
MsgBox "Время ожидания до отправления ближайшего поезда " & Format(C, "hh:mm")
End Sub
Спасибо!

Последний раз редактировалось NewStudents; 21.05.2018 в 21:21.
NewStudents вне форума Ответить с цитированием
Старый 22.05.2018, 10:06   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Я уже писал на кибере, что можно
Код:
C = A - B - (A < B)
А подпрограмму можно сделать для того, чтобы переводить c и d, n и m в формат даты, в соотв. с условием задачи.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Имитатор движения поезда RAFA91 Win Api 0 21.06.2016 12:18
UML-диаграмма поезда Aiko_K Помощь студентам 11 06.04.2015 16:28
Классы и поезда в C++ Alovar Помощь студентам 4 05.06.2011 15:19
время отправления назналось от часа до2 Totenkopf Общие вопросы .NET 1 18.10.2010 12:30
перехват отправления чужими программами отправки на печать документов Nat Win Api 7 20.04.2007 16:07