Hola de nuevo. Llevo varias horas con esto y no consigo trabajar bien con las horas en VBA.
Ahora mismo el problema que tengo es que con este código no me suma los Textbox vacíos. Necesito que los sume como "cero". Porque a veces no hay hora de entrada, o tampoco final, simplemente porque ha estado de vacaciones. O por ejemplo no ha habido tiempo para comer porque se ha hecho la jornada continua.
¿Podéis ayudarme? Me da lo mismo que lo de en horas (hh:mm) que en decimal, pero que me de el resultado., que no sea un número entero.
TextBoxT1 es el resultado, TextBoxS1 es la hora Final, TextBoxE1 es hora Inicio, TextBoxN1 es el tiempo para comer. Es decir que a la hora final le restamos la hora de inicio y le descontamos el tiempo para comer y me tiene que dar el total de jornada de trabajo. Así lo hace bien, excepto que si uno de los TextBox está en blanco ya no hace la operación.
Hola de nuevo. Llevo varias horas con esto y no consigo trabajar bien con las horas en VBA.
Ahora mismo el problema que tengo es que con este código no me suma los Textbox vacíos. Necesito que los sume como "cero". Porque a veces no hay hora de entrada, o tampoco final, simplemente porque ha estado de vacaciones. O por ejemplo no ha habido tiempo para comer porque se ha hecho la jornada continua.
¿Podéis ayudarme? Me da lo mismo que lo de en horas (hh:mm) que en decimal, pero que me de el resultado., que no sea un número entero.
TextBoxT1 es el resultado, TextBoxS1 es la hora Final, TextBoxE1 es hora Inicio, TextBoxN1 es el tiempo para comer. Es decir que a la hora final le restamos la hora de inicio y le descontamos el tiempo para comer y me tiene que dar el total de jornada de trabajo. Así lo hace bien, excepto que si uno de los TextBox está en blanco ya no hace la operación.
TextBoxT1.Value = (Format(TextBoxS1.Value, "##.00") - Format(TextBoxE1.Value, "##.00") - Format(TextBoxN1.Value, "##.00")) * 24 TextBoxT2.Value = (Format(TextBoxS2.Value, "##.00") - Format(TextBoxE2.Value, "##.00") - Format(TextBoxN2.Value, "##.00")) * 24 TextBoxT3.Value = (Format(TextBoxS3.Value, "##.00") - Format(TextBoxE3.Value, "##.00") - Format(TextBoxN3.Value, "##.00")) * 24 TextBoxT4.Value = (Format(TextBoxS4.Value, "##.00") - Format(TextBoxE4.Value, "##.00") - Format(TextBoxN4.Value, "##.00")) * 24 TextBoxT5.Value = (Format(TextBoxS5.Value, "##.00") - Format(TextBoxE5.Value, "##.00") - Format(TextBoxN5.Value, "##.00")) * 24 TextBoxT6.Value = (Format(TextBoxS6.Value, "##.00") - Format(TextBoxE6.Value, "##.00") - Format(TextBoxN6.Value, "##.00")) * 24 TextBoxT7.Value = (Format(TextBoxS7.Value, "##.00") - Format(TextBoxE7.Value, "##.00") - Format(TextBoxN7.Value, "##.00")) * 24
El resultado podéis ver en esta captura que el sábado a pesar de ir a trabajar no da resultado y el domingo no pone 0.
Gracias.
Moisés.