Задача следующая: Поезд прибывает на станцию в 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.
Программа написана и работает исправно, но в задании указано использовать какую-либо подпрограмму. Подскажите пожалуйста, как можно модернизировать код программы?
[vba]
Код
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
[/vba]
И вот это ещё "Определить процедуру, выводящую на экран время, оставшееся у пассажира до отправления ближайшего поезда". Растолкуйте пожалуйста
Спасибо!
Товарищи, здравствуйте!
Задача следующая: Поезд прибывает на станцию в 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.
Программа написана и работает исправно, но в задании указано использовать какую-либо подпрограмму. Подскажите пожалуйста, как можно модернизировать код программы?
[vba]
Код
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
[/vba]
И вот это ещё "Определить процедуру, выводящую на экран время, оставшееся у пассажира до отправления ближайшего поезда". Растолкуйте пожалуйста
[/vba] одни сутки в Excel - это единица, 12 часов - это 0,5, и т.д
Цитата
Процедура — это независимая именованная часть программы, которую после однократного описания можно многократно вызвать по имени из последующих частей программы для выполнения определенных действий.
Если мы, например, напишем вот так [vba]
Код
Private Sub CommandButton1_Click() Dim A As Date, B As Date, C As Date A = InputBox("Введите время отправления поезда (через двоеточие)") B = InputBox("Введите время прибытия пассажира (через двоеточие)") C = IIf(A < B, 1 - B + A, A - B) MsgBox Soob(C, "hh:mm") End Sub
Function Soob(C, f) Soob = "Время ожидания до отправления ближайшего поезда - " & Format(C, f) End Function
[/vba] одни сутки в Excel - это единица, 12 часов - это 0,5, и т.д
Цитата
Процедура — это независимая именованная часть программы, которую после однократного описания можно многократно вызвать по имени из последующих частей программы для выполнения определенных действий.
Если мы, например, напишем вот так [vba]
Код
Private Sub CommandButton1_Click() Dim A As Date, B As Date, C As Date A = InputBox("Введите время отправления поезда (через двоеточие)") B = InputBox("Введите время прибытия пассажира (через двоеточие)") C = IIf(A < B, 1 - B + A, A - B) MsgBox Soob(C, "hh:mm") End Sub
Function Soob(C, f) Soob = "Время ожидания до отправления ближайшего поезда - " & Format(C, f) End Function
_Boroda_, это Вы объясняете, как это понимают все нормальные люди, а что думает автор загадочного текста, процитированного ТС, не знает, полагаю, даже он сам
_Boroda_, это Вы объясняете, как это понимают все нормальные люди, а что думает автор загадочного текста, процитированного ТС, не знает, полагаю, даже он сам StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.