по введенному времени определить количество часов до конца дня.
Код:
Sub asdfhjkl()
Dim a As Date
Dim b As Date
Dim c As Date
Dim t As Date
h = Hour(a) 'переменной присваиваются часы
m = Minute(b) 'переменной присваиваются минуты
s = Second(c) 'переменной присваиваются секунды
papday = DateSerial(a, b, c)
h1 = InputBox("введите часы окончания дня")
m1 = InputBox("введите минуты окончания дня")
s1 = InputBox("введите секунды окончания дня")
h2 = InputBox("введите настоящее время (часы)")
m2 = InputBox("введите настоящее время (минуты)")
s2 = InputBox("введите настоящее время (секунды)")
x = h1 - h2
y = m1 - m2
Z = s1 - s2
c = DateSerial(year1, month1, day1) 'формирование даты
MsgBox ("Ответ= " & DateDiff("x", papday, a) & " часов")
MsgBox ("Ответ= " & DateDiff("y", papday, a) & " минут")
MsgBox ("Ответ= " & DateDiff("z", papday, a) & " секунд")
End Sub
