Como condicionar usando date en VB6.0
Mi idea es escribir en un textbox la hora de entrada y en otro textbox la hora de salida de un estacionamiento, quisiera saber como calcular el tiempo transcurrido y si ese tiempo es de 60 min entonces cobrar cierta cantidad, si es de mas de 60 min cobrar otro monto y asi susecivamente, condicionando con if :)
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Te anexo el código
Private Sub CommandButton1_Click() h1 = TextBox1 ' Hora de entrada h2 = TextBox2 ' Hora de salida rest = CDate(h1) - CDate(h2) Min = Int(rest * 24 * 60) TextBox3 = Min ' Resultado en minutos If TextBox3 = 60 Then MsgBox "es igual a una hora" ' Acciones a realizar si es igual a 60 min Else MsgBox "es mayor que una hora" End If End Sub
Me comentas y valoras para finalizar saludos!!
Hola Adriel Ortiz MangiaHice esto pero si coloco 10:30 y 11:25 me dice que es más que una hora - Joaom Manuel
Muchas Gracias revisare el codigo - Zamu Najar
Si no me equivoco hay que declarar la variables h1, h2 y Min no? - Zamu Najar
JManuel sale por que en la condición puse = 60 a min, en realidad debería poner <= 60 min saludos!! - Adriel Ortiz Mangia
Eso es correcto. Para la solicitud si, aunque entre los 2 cuadros sea menor que 1 hora para el cobro es una hora - Joaom Manuel