pasar hora a numero

[ValentinoMolinari]

Hola a todos....les dejo una inquietud nuevamente......tengo que desarrollar una planilla de horas de trabajos semanales....donde debo registrar las horas trabajadas por día de cada empleado....se registran 4 horas(Hora de Entrada Matutina, Hora de Salida Matutina,Hora Entrada Vespertina, Hora Salida Vespertina) por empleado por dia para luego calcular cuanto se debe pagar a cada empleado....la pregunta es......como paso una hora a su equivalente en número....por ejemplo 8:30 debería quedar 8,5....por que pasar a número???porque de acuerdo a la cantidad de horas trabajadas debo calcular cuanto debe cobrar el empleado .....desde ya muchas gracias...espero su pronta respuesta

[Avellaneda]

Hola, la cuestión es sacar la diferencia en segundos entre las dos horas y dividir el resultado entre 3600.

Supongamos que en el Text1 tenemos la hora de entrada y en el Text2 la de salida:

Código vb:

Dim lSegundos As Long, dDecimal As Double
 
lSegundos = DateDiff("s", Text1, Text2)
dDecimal = lSegundos / 3600
MsgBox dDecimal
 

Saludos

[ValentinoMolinari]

Muchas gracias Avellaneda lo pruebo y te avsio...cualquier duda te vuelvo a consultar....muchas gracias de nuevo