Restar horas en VBA Excel 2003

H o l a:

¿Cómo es posible que la hora fin sea menor a la hora de inicio?

Lo anterior solamente es posible si la hora fin está en otro día subsecuente al día de inicio, es decir, empezaste el 4 de abril a las 2 de la tarde y terminas el 6 de abril a las 10 de la mañana. Las 10 de la mañana (hora fin) es menor a las 2 de la tarde (hora inicio), pero las 10 de la mañana corresponden a otro día.

Entonces analizando lo anterior necesitamos saber la fecha inicio y la hora inicio, la fecha fin y la hora fin, la fórmula es:

Diferencia =  (fecha fin + hora fin)  -  (fecha inicio + hora inicio)

Tienes que capturar en tu formulario los 4 datos, de esa forma podrás realizar la resta y obtener la diferencia.

En el formulario crea 4 textbox

Textbox1 para la fecha de inicio

Textbox2 para la hora de inicio

Textbox3 para la fecha fin

Textbox4 para la hora fin

El código sería así:

Private Sub CommandButton1_Click()
'Por.Dante Amor
    Set h = Sheets("Hoja1")
    h.[C4] = CDate(TextBox1)
    h.[D4] = CDate(TextBox2)
    h.[E4] = CDate(TextBox3)
    h.[F4] = CDate(TextBox4)
    Label1 = h.[I4]
End Sub

Lo complicado de utilizar fechas y horas en un textbox es que los datos quedan en texto, entonces se tienen que convertir a fecha, pero aun así eso es complicado.

Lo recomendable es pasar los textbox a celdas y dejar que la funcionalidad de excel realice las operaciones.

Entonces pon las siguientes fórmulas en la hoja1:

En la celda G4:

=TEXTO((E4+F4)-(C4+D4),"[hh]")

En la celda H4:

=DERECHA(TEXTO((E4+F4)-(C4+D4),"hh:mm"),2)

En la celda I4:

=VALOR(G4*60)+VALOR(H4)

La hoja1 será una hoja temporal que deberás tener para realizar estas operaciones.

El resultado queda en la celda I4, después se pasa el dato de la celda I4 al label.

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Suele suceder que los procesos que se controlan comienzan el día 4 de abril a las 23:50 y terminal el 5 de abril a las 0:30... me es indistinto la fecha, porque los procesos a medir no son tan extensos, a lo sumo un par de minutos (como el ejemplo). Por eso no registramos fechas, solo horas de inicio  y fin y quería dejar el tema de las celdas y reemplazarlas por un formulario.

H o l a:

Pero si estás cambiando de un día a otro, entonces es necesario que pongas las fechas.

Desde luego vas a trabajar en un formulario, pero como te expliqué es difícil encontrar la diferencia utilizando textos, lo que vamos a hacer con las celdas es obtener el cálculo y presentarlo en el label, incluso la hoja1 puede estar oculta, solamente la vamos a utilizar para realizar el cálculo.

Espero haberme explicado, si no sabes cómo adaptar el cálculo en el formulario utilizando las fechas, las horas y la hoja, entonces envíame tu archivo y adapto toda la solución.

Si estás seguro que duran minutos, entonces podemos poner la fecha actual como fecha de inicio y la fecha fin como fecha actual + 1, de esa forma tenemos las 2 fechas y podemos realizar el cálculo.

':)
S a l u d o s . D a n t e A m o r
':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.

Encontré una manera, espero les sirva a aquellos que necesiten resolver una situación parecida:

Private Sub CommandButton1_Click()
Dim t0, t1 As Variant
t0 = Format(TextBox1, "hh:mm")
t1 = Format(TextBox2, "hh:mm")
If TimeValue(t1) > TimeValue(t0) Then
Label1 = (TimeValue(t1) - TimeValue(t0)) * 1440
Else
Label1 = (1 + TimeValue(t1) - TimeValue(t0)) * 1440
End If
End Sub

Saludos!