Convertir Unidades de Tiempo: horas Minutos Seg..
Hola Estoy tratando de crear una Función que me convertirá un dato dado de esta manera:
Horas:minutos:segundos
Y lo pasara solo a horas o a minutos o a segundos
el modulo es el siguiente (el que monto en VB)
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
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
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
________________________________________
Al complilarlo no saca error
Pero paso al libro de excel y le doy =pasaraminutos(D4) y saca error,
en D4 esta el dato 12:20:40, no se que ocurre.
Gracias!
Horas:minutos:segundos
Y lo pasara solo a horas o a minutos o a segundos
el modulo es el siguiente (el que monto en VB)
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
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
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
________________________________________
Al complilarlo no saca error
Pero paso al libro de excel y le doy =pasaraminutos(D4) y saca error,
en D4 esta el dato 12:20:40, no se que ocurre.
Gracias!
{"Lat":6.18424616128059,"Lng":-75.5859375}
1 respuesta
Respuesta de angelcrisnor
1