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