Access - codigo de barras campo texto

 
Vista:

codigo de barras campo texto

Publicado por J.LEAL (7 intervenciones) el 10/06/2018 11:37:47
Buenos días sabrías como convierto una lectura de un código de barras en un campo fecha y hora.
Al aplicar el lector de código de barras el valor que me devuelve es:
Ejemplo:
0181702359, siendo 018 el año, 170 el día y mes 19 de junio, 2359 hora 23:59
0201082359 = 17/04/2020 23:59
Perdón por mi desconocimiento.
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

codigo de barras campo texto

Publicado por Anonimo (3320 intervenciones) el 10/06/2018 12:27:04
Devolvería un dato de tipo fecha Access (un dato de fecha, no un texto con una fecha)

Se utilizan funciones básicas y se verifica en la ventana de inmediato:

undato="0181702359"
?CDate("01/01/" & Mid(undato, 2, 2)) - 1 + Mid(undato, 4, 3) + CDate(Mid(undato, 7, 2) & ":" & Right(undato, 2))
19/06/2018 23:59:00

undato="0201082359"
?CDate("01/01/" & Mid(undato, 2, 2)) - 1 + Mid(undato, 4, 3) + CDate(Mid(undato, 7, 2) & ":" & Right(undato, 2))
17/04/2020 23:59:00

.- Se desprecia al cero inicial ( la alternativa seria añadirle el milenio, dentro de unos 72 años que decidan los que les corresponda)

.- Se genera una fecha valida en base al primer día del año (uno de enero mas año ) y se le resta una unidad (nos 'sobra' el día actual):
0201082359
CDate("01/01/" & Mid(undato, 2, 2)) - 1

se le añade a la fecha el numero de días del año transcurridos
0201082359
Mid(undato, 4, 3)

Se convierte a hora (Access) valida y se le añade a lo anterior
0201082359
CDate(Mid(undato, 7, 2) & ":" & Right(undato, 2))
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