Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Dim Hora1 As Date, Hora2 As Date, d As Long Hora1 = CDate(InputBox("Ingrese la hora inicial", "Fecha", Format$(Time, "hh:nn"))) Hora2 = CDate(InputBox("Ingrese la hora final", "Fecha", Format$(Time, "hh:nn"))) MsgBox "La diferencia es " & DateDiff("n", Hora1, Hora2) & " minutos"