Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » restas fechas con horario de trabajo

Excel - restas fechas con horario de trabajo

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 13
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

restas fechas con horario de trabajo

Publicado por pedro (7 intervenciones) el 13/03/2019 23:56:24
Buenas tardes
me gustaria que me ayuden a calcular cuantas horas paso entre el inicio y fin sabiendo el horario del trabajador
No debe contar domingo

A1 viernes 15/03/2019 04:00:00 p.m.
B2 martes 19/03/2019 13:00:00 p.m.

horario del trabajado
L-V de 8;30 a 19:00
sab de 8:30 a 14:00

En teoria seria 3 horas trabajadas del viernes, 5.5 horas del sabado, lunes 10.5 horas, martes 4.5 horas
total = 23 horas y media.

Gracias por su apoyo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

restas fechas con horario de trabajo

Publicado por Andres Leonardo (1583 intervenciones) el 14/03/2019 17:26:48
Hola Pedro vaya novedad.. siempre se calcula con estandares. pero ya que quieres un calendario personalizado... mira si esto te funciona....

Pues con una UDF seria facil... teadjunto lo requerido considerando que tienes un calendario personalizado

La imagen


'y este codigo hace la magia....
'consideraciones
El calendario esta en la misma Hoja y si se va a cambiar debe ser puesto en otra imagen.
debes tener las celdas horas y minutos .. separadas tanto inicio y final.. espero te ayude.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Function calculaHorasxfechas(fi As Range, hi As Range, ff As Range, hf As Range) As Double
Dim Semana As Variant
'para asignar un rango a una matriz

Dim vfi As Date
If Abs(fi) > ff Then
    calculaHorasxfechas = -99999
    Return
ElseIf fi = ff Then
    If hi <= hf Then
        calculaHorasxfechas = hf - hi
    Else
    calculaHorasxfechas = -88888
    End If
Else ' Es decir si es valido el tiempo

 
'Cargo mi calendario personalizado en una arreglo expecifico

Semana = Range("A2:E8")
'MsgBox MiMatriz(2,3)

vfi = CDate(fi + 1)
    While vfi < ff
        Debug.Print vfi & " - " & Weekday(vfi) ' & -" & Semana(5,Weekday(vfi))"

        calculaHorasxfechas = calculaHorasxfechas + Semana(Weekday(CDate(vfi)), 5)
        vfi = CDate(vfi) + 1
    Wend
End If
    'DIA INICIAL sumo horas

        calculaHorasxfechas = calculaHorasxfechas + (Semana(Weekday(CDate(fi)), 4) - hi)
    'DIA FINAL

        calculaHorasxfechas = calculaHorasxfechas + (hf - Semana(Weekday(CDate(ff)), 3))
        calculaHorasxfechas = calculaHorasxfechas * 24
End Function
 
'Calendario cargado en matriz

'ID  Dias    INICIO  FINAL   HorasXDIA

'1   Domingo 00:00   00:00   00:00

'2   Lunes   08:30   19:00   10:30

'3   Martes  08:30   19:00   10:30

'4   Miercol 08:30   19:00   10:30

'5   Jueves  08:30   19:00   10:30

'6   Viernes 08:30   19:00   10:30

'7   Sabado  08:30   14:00   05:30
HorasTrabajadasCalendarioPersonalizado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 13
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

restas fechas con horario de trabajo

Publicado por Pedro (7 intervenciones) el 15/03/2019 22:17:40
Estimado Andres

Gracias por tu aporte, lo pondre en marcha si tuviera alguna duda te comento, pero no habra manera de hacerlo sin separar la fecha de la hora.

Se agradece.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 13
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

restas fechas con horario de trabajo

Publicado por Pedro (7 intervenciones) el 03/05/2019 23:36:28
Estimado despues de varias pruebas, cuando la fecha incial y la fecha final es la misma no funciona la funcion, podrias apoyarme
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

restas fechas con horario de trabajo

Publicado por Andres Leonardo (1583 intervenciones) el 06/05/2019 17:42:46
Que extraño si tiene el dato podrias enviarme un ejemplo que error te da -88888 ???


1
2
3
4
5
6
ElseIf fi = ff Then
    If hi <= hf Then
        calculaHorasxfechas = hf - hi
    Else
    calculaHorasxfechas = -88888
    End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 13
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

restas fechas con horario de trabajo

Publicado por pedro (7 intervenciones) el 06/05/2019 21:19:20
Estimado tendras alguna novedad.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 13
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

restas fechas con horario de trabajo

Publicado por pedro (7 intervenciones) el 06/05/2019 21:38:57
hola amgo hay otro incidente, cuando la hora inicial es mayor con la hora final el resultado es negativo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar