Visual Basic - necesito ayuda

Life is soft - evento anual de software empresarial
   
Vista:

necesito ayuda

Publicado por rafael (16 intervenciones) el 14/10/2007 04:36:20
hola, tengo que calcular una diferencia de horas y que me diga despues cuantas horas son si es 1 o 4 pero si se pasa de una hora y 10 se redondea a la siguiente hora se que tengo que usar el datediff pero no se como usarlo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:necesito ayuda

Publicado por Natalia Camino (46 intervenciones) el 14/10/2007 07:50:11
Hola, fíjate en este ejemplo

Dim dInicio As Date, dFin As Date
Dim lHoras As Long, lMinutos As Long

dInicio = Text1.Text
dFin = Now
lMinutos = DateDiff("n", dInicio, dFin)
lHoras = lMinutos \ 60
lMinutos = lMinutos - (lHoras * 60)
If lMinutos > 10 Then lHoras = lHoras + 1

MsgBox lHoras & " horas"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:necesito ayuda

Publicado por rafael (2 intervenciones) el 15/10/2007 06:33:30
gracias pero si la hora fin no es la que tengo actual en la pc? como hago porque asi me puede dar errores
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:necesito ayuda

Publicado por Natalia Camino (46 intervenciones) el 15/10/2007 12:41:13
¿Dónde tienes la hora fin, en un TextBox? Pues sólo cambia la asignación de la variable:

dFin = Text2.Text
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar