Convertir unidades de tiempo: horas, minutos, y segundos

A veces nos es imprescindible convertir horas en minutos, o minutos en segundos, y no sabemos como podemos conseguirlo de una forma sencilla y sin complicaciones. Bueno, pues hoy os presento un par de funciones que nos ahorrarán estas conversiones.

Imaginemos que tenemos esto en una celda (7 horas, 12 minutos, y 45 segundos):

07:12:45

Si deseamos mostrar en pantalla el formato de esa forma, tendremos que situarnos en esa celda, y seleccionar desde el menú Formato, la opción Celdas…, y en la pestaña Número, que es la que nos saldrá en primer plano, por defecto, añadiremos dentro de la categoría Personalizada, este formato: hh:mm:ss, tal y como se muestra en esta imagen:


Ahora imaginemos que deseamos convertir esas horas, minutos, y segundos, en una única unidad de tiempo, por ejemplo, en horas. Para ello, tan solo deberemos introducir esta fórmula en cualquier celda, excepto en aquella donde tenemos el dato a convertir. Suponiendo que tengamos el dato a convertir en la celda D4, escribiríamos la fórmula de la siguiente forma:

=HORA(D4)+(MINUTO(D4)/60)+(SEGUNDO(D4)/(60*60))

Si lo que deseamos es convertir esa unidad de tiempo, en minutos, deberemos introducir esta otra fórmula:

=(HORA(D4)*60)+MINUTO(D4)+(SEGUNDO(D4)/60)

Y si por el contrario, lo que deseamos es convertir esa unidad de tiempo, en segundos, deberemos introducir esta otra fórmula:

=(HORA(D4)*(60*60))+(MINUTO(D4)*60)+SEGUNDO(D4)

Si somos un poco más atrevidos y preferimos crearnos nuestras propias funciones en excel, podemos hacer algo como esto, para pasar todo a horas (debemos copiar y pegar estas funciones en un módulo):

Function pasarahoras(celda As Range) dato = CDate(celda) datos = Split(dato, ":") horas = datos(0) horas = horas + (datos(1) / 60) horas = horas + (datos(2) / (60 * 60)) pasarahoras = horas End Function

Esta otra función, nos servirá para pasar el dato a minutos:

Function pasaraminutos(celda As Range) dato = CDate(celda) datos = Split(dato, ":") minutos = datos(0) * 60 minutos = minutos + datos(1) minutos = minutos + (datos(2) / 60) pasaraminutos = minutos End Function

Y esta otra función, nos servirá para pasar el dato a segundos:

Function pasarasegundos(celda As Range) dato = CDate(celda) datos = Split(dato, ":") segundos = datos(0) * 60 * 60 segundos = segundos + (datos(1) * 60) segundos = segundos + datos(2) pasarasegundos = segundos End Function

Para llamar a esas funciones personalizadas, por ejemplo a la que nos convierte el dato en horas, nos bastará con escribir algo como esto, en cualquier celda:

=pasarahoras(D4)

Para pasar el dato a minutos, escribiremos esto otro:

=pasaraminutos(D4)

Y para pasar el dato a segundos, escribiremos esto otro:

=pasarasegundos(D4)

Tanto si utlizamos las funciones de tiempo propias de excel, como las funciones personalizadas que os propongo, el resultado que obtendremos será exactamente el mismo.