Tutorial

1.- Abrimos hoja de exel

2.-Escribimos en las celdas lo siguiente:
* A2 Clave de empleado
* B2 Hora de entrada
* C2 Hora de salida
* D2 Tiempo de estancia
* E2Tarifa por hora
* F2 Importe
* G2 ISPT
* H2 Importe

3.- Abrimos Visual Basic y en la herramienta de insertar le damos click en modulo y tenemos la siguiente pantalla:

4.- En VisualBasic escribimos lo siguiente:
Function difh(he, hs)
Dim h1, m1, s1 As Integer
Dim h2, m2, s2 As Integer
Dim dh, dm, ds As Integer
Dim ch1, cm1, cs1 As String
Dim ch2, cm2, cs2 As String
Dimche, chs As String

5.-Colocamos las horas ( entrada y salida) que están en formato de hora (HH:MM:SS) ,también extraemos las horas , minutos y segundos por separado tanto de la hora de entrada comode salida como mostramos en la siguiente imagen.

che -Format(he, "hh:mm:ss")
chs = Format(hs, "hh:mm:ss")
ch1 = Mid(che, 1, 2)
cm1 = Mid(che, 4, 2)
cs1 = Mid(che, 7, 2)
ch2 = Mid(chs, 1, 2)cm2 = Mid(chs, 4, 2)
cs2 = Mid(chs, 7, 2)
h1 = Val(ch1): m1 = Val(cm1): s1 = Val(cs1)
h2 = Val(ch2): m2 = Val(cm2): s1 = Val(cs2)
dh = h2 - h1
dm = m2 - m1
If (dm < 0) Then
h2 = h2 - 1
dh =h2 - h1
dm = m2 + 60 - m1
End If

6.- Ahora calculamos la diferencia de segundos , entre la hora de salida contra la hora de entrada y verificamos si la diferencia de segundos es negativa , si esasí restamos un minuto a la hora de salida y ese minuto lo convertimos a segundos para agregar estos a los segundos de la hora de salida , y así evitar que la diferencia vuelva hacer negativa.

ds= Val(cs2) - Val(cs1)
If (ds < 0) Then
m2 = m2 - 1
dm = m2 - cm1
ds = cs2 + 60 - s1
End If

7.- Ahora si procedemos a calcular el tiempo de estancia , RECUERDA DEMOS CONVERTIR LOS MINUTOSA FRACCIONES DE HORA Y LOS SEGUNDOS CONVERTIRLOS PRIMERO A FRACCIONES DE MINUTOS Y DESPUES A FRACCIONES DE HORA.

difh = dh + dm / 60 + (ds / 60) / 60
End Function

8.- Te posicionas en...