sugerencias para sacar la diferencia entre 2 horas

22/07/2005 - 10:56 por Sonia | Informe spam
hola

kiero sacar los minutos y segundos q hay entre 2 horas hora final-hora
inicio

de momento solo estoy sacando los segundos pero no me sale

hago esto:

' *************** primera forma de hacerlo *****************

Dim hora2, hora1 As Date

Dim diferencia As Integer



'hora inicio-la almacene en un textbox pq no podria ponerlo como variable

'hora inicio

hora.Text = Microsoft.VisualBasic.Hour(System.DateTime.Now)

hora.Text = Format(System.DateTime.Now, "HH:mm")

'hora final

horaf.Text = Microsoft.VisualBasic.Hour(System.DateTime.Now)

horaf.Text = Format(System.DateTime.Now, "HH:mm")



hora2 = horaf.Text

hora1 = hora.Text

diferencia = hora2.Subtract(hora1)



y despues en el insert inserto la diferencia



' *************** segunda forma de hacerlo *****************

Dim difer As TimeSpan

Dim hora2, hora1 As String

difer = (DateDiff(DateInterval.Day, DateTime.Parse(hora2),
DateTime.Parse(hora1)))



bueno ninguno de los ejemplos me da.

Alguna sugerencia??



gracias
 

Leer las respuestas

#1 Eduardo
22/07/2005 - 11:20 | Informe spam
Sonia, el sig. codigo es identico al tuyo y me funciono bien

Dim Hora1, Hora2 As Date
Hora1 = Now
Hora2 = Now
Hora2 = Hora2.AddHours(Rnd() * 3)
Me.TextBox1.Text = Hora1.ToString("hh:mm")
Me.TextBox2.Text = Hora2.ToString("hh:mm")
Me.TextBox3.Text = Hora2.Subtract(Hora1).ToString

No creo que sea eso, pero creo que tal vez no has notado que tu hora1 y
Hora2 son iguales y no hay ninguna diferencia, pueda ser que los pequeños
segundos que obtengas solo sean unos cuantos ticks que se ganaron al
inicializar las variablesSUERTE!!!

Preguntas similares