Visual Basic para Aplicaciones - Problema redondear hora introducida con Time

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 59
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Problema redondear hora introducida con Time

Publicado por Manuel (26 intervenciones) el 04/05/2020 19:45:19
Buenos días, estoy haciendo una macro con bva excel para que mediante lector de código de barras fichen los empleados, lo tengo casi terminado aunque hay dos cosas que se me resisten:
-al fichar se introduce la hora con la función Time pero no soy capaz de redondear la hora a cuartos, para dar un margen de entrada (Por ej, si fichan desde las 08:52 hasta las 09:07 redondee a las 09:00 y asi en cada cuarto de hora.
-Algunos empleados tienen que hacer hasta tres o cuatro entradas y salidas y no se como hacerlo, al fichar la primera lo coloco en entrada y al fichar la segunda en salida automáticamente, y ese dia ya no me admite mas fichadas.
A ver si alguien puede ayudarme.
Gracias.
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 Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Problema redondear hora introducida con Time

Publicado por Antoni Masana (498 intervenciones) el 05/05/2020 16:08:16
Prueba esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro()
    Dim Hor As Byte, Min As Byte
    Hor = Val(Mid(Format(Time, "hh:mm"), 1, 2))
    Min = Val(Mid(Format(Time, "hh:mm"), 4, 2))
    Select Case Min
        Case Is <  7: Min =  0
        Case Is < 22: Min = 15
        Case Is < 37: Min = 30
        Case Is < 52: Min = 45
        Case Is < 59: Min =  0: Hor = Hor + 1
    End Select
    MsgBox TimeValue(Hor & ":" & Min & ":00")
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 59
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Problema redondear hora introducida con Time

Publicado por Manuel (26 intervenciones) el 05/05/2020 19:12:48
Muchas Gracias, lo probare y ya te digo si funciona.
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: 59
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Problema redondear hora introducida con Time

Publicado por Manuel (26 intervenciones) el 10/05/2020 08:46:42
Muchisimas gracias, lo he implementado y funciona perfectamente.
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