Visual Basic - Dates

Life is soft - evento anual de software empresarial
 
Vista:

Dates

Publicado por B68Toftir (18 intervenciones) el 29/08/2003 18:20:07
Toy un pokillo ataskadillo, tengo dos cuadros de text en el cual pongo la hora de inicio y la hora final, la operacion la hace bien, pero no se por ke no me entra en un condicional... este es el codigo

If totalhoras = "1:00:00" Then..... si el resultado de inicio y final es una hora no entra en las instrucciones del condicional... no se por que ???

Gracias.....
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:Dates

Publicado por Jorge (67 intervenciones) el 29/08/2003 20:20:08
Hola
Porque no pones el código completo de lo que haces para probarlo porque las horas no es llegar y restarlas yo tengo una funcion que resta fechas
Chao
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:Dates

Publicado por Manuel (34 intervenciones) el 29/08/2003 23:08:24
HOla, en primer lugar tienes qu ever si estas utilizando rando de 12 horas o de 24 horsas por que si es de 24 asi como la estas poniendo no funionara.

Puedes hacer esto:
Horas = HoraInicial - HoraFinal
Te dara como resultado, Horas y Minutos, Ejem 1.10

If Horas = 1 Then
(Condicion)
Else
(Condicion)
End if

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:Dates

Publicado por Juan (284 intervenciones) el 30/08/2003 12:11:12
Para restar horas usa la función DateDiff para averiguar los minutos transcurridos entre una hora y otra. Un ejemplo:

Private Sub Form_Click()
Dim respuesta As String, diferencia As Long
Dim horaIni As Date, horaFin As Date
Do
respuesta = InputBox("Introduce la hora inicial (hh:mm:ss)")
Loop While Not IsDate(respuesta)
horaIni = CDate(respuesta)
Do
respuesta = InputBox("Introduce la hora final (hh:mm:ss)")
Loop While Not IsDate(respuesta)
horaFin = CDate(respuesta)
diferencia = DateDiff("n", horaIni, horaFin)
MsgBox "Han transcurrido " & diferencia & " minutos"
End Sub
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