Como llevar una hora con minutos a una variable numérica
Buenas noches,
Estoy necesitando ayuda para mover a una variable la hora con los minutos a partir de un tiempo especifico. La variable debe asimilar datos numéricos para poder graficar el comportamiento de este tiempo. Se requiere trabajar con fracciones de hora por ejemplo.
A B
xxx xxx
Date Time
26/02/2013 09:30 a.m.
26/02/2013 10:00 a.m.
26/02/2013 10:30 a.m.
26/02/2013 11:00 a.m.
Los tiempos llegan de un archivo texto importado a excel y se requiere tomarlo de una celda y llevarlo a una variable para poder generar un relación en una hoja especifica y poder graficar.
El problema es que puedo tomar la fracción de hora o minuto por separado pero no he podido llevar la hora con su fracción para poder graficar.
Código
Dim p4, p3, f as single
ActiveSheet.Range("A3").Activate
P3=ActiveCell.Offset(f, 0).Value
ActiveSheet.Range("B3").Activate
P4 = ActiveCell.Offset(f, 0).Value
Muchas gracias,
Hernán
1 respuesta
No entendí bien lo que necesitas, el tiempo te llega en texto, cuando lo pones en las celda de la columna B, ¿sigue siendo texto?
Si sigue siendo texto, es porque debe haber espacios adelante o atrás de ese texto, si quitas los espacios, en automático excel reconoce este dato como valor de tiempo y como ya es un valor, lo puedes utilizar para graficar.
Si aún así sigues teniendo texto, podrías sacar la hora y los minutos por separado y luego unirlos para obtener un valor de hora, de esta forma:
hora = Mid(Range("B3"), 1, 2)
minu = Mid(Range("B3"), 4, 2)
horario = TimeSerial(hora, minu, 0)
En la variable horario tendrás el valor de hora, un valor de hora en excel, realmente es un valor numérico, solamente que se ve en formato de hora:minuto, por ejemplo las 9:00 am, realmente es el número 0.375, las 11:00 pm es el número 0.9583333333, para obtener el número de una hora, puedes poner en una celda esta fórmula:
=valor(B3)
Si en B3 tienes 09:30:00 a.m., la fórmula te regresa 0.375
