Ver originalDim FechaInicio As Date = "21/10/2010 01:45 p.m."Dim FechaFin As Date = Date.Now Dim horas As Integer = DateDiff(DateInterval.Hour, FechaInicio, FechaFin) MsgBox(horas)