Macro o fórmula para convertir hora a texto
Dan tengo una fórmula la cual me resta horas
Entonces quisiera que la diferencia me la ponga en texto
Ejemplo:
E6 (3:00:00pm) G6 (4:10:00PM)
La fórmula:
=TEXTO(E6,"hh:mm:ss")-(TEXTO(G6,"hh:mm:ss"))
La diferencia
-1:10
Texto una hora con diez minutos
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
No estoy seguro de que tu fórmula sea funcional.
Si tienes horas en las celdas E6 y G6, la fórmula debería ser:
=G6-E6
Si pones E6 - G6, el resultado es un error, ya que no puedes tener tiempo negativo.
Sin embargo, si resuelves lo de la fórmula, en la celda resultante deberás tener una hora válida, es decir, deberás tener un número de hora en positivo:
1:10
Ahora, si el resultado lo pones en la celda H6, entonces en la celda I6 pon la siguiente función:
=HoraLetra(H6)
Copia la siguiente macro en un módulo:
Function HoraLetra(fec As Date) As String
'Por.Dante Amor
hora = num(Hour(fec))
minu = num(Minute(fec))
If hora = "Una" Then h = "" Else h = "s"
If minu = "Una" Then m = "Un minuto" Else m = minu & " minutos"
HoraLetra = hora & " hora" & h & " con " & m
End Function
'
Function num(fec As Long) As String
'Por.Dante Amor
Unidades = Array("", "Una", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve", "Diez", "Once", "Doce", "Trece", "Catorce", "Quince", "Dieciséis", "Diecisiete", "Dieciocho", "Diecinueve", "Veinte", "Veintiun", "Veintidos", "Veintitres", "Veinticuatro", "Veinticinco", "Veintiseis", "Veintisiete", "Veintiocho", "Veintinueve")
Decenas = Array("", "Diez", "Veinte", "Treinta", "Cuarenta", "Cincuenta", "Sesenta", "Setenta", "Ochenta", "Noventa", "Cien")
Centenas = Array("", "Ciento", "Doscientos", "Trescientos", "Cuatrocientos", "Quinientos", "Seiscientos", "Setecientos", "Ochocientos", "Novecientos")
'
Select Case fec
Case 0: r = "Cero"
Case 1 To 29: r = Unidades(fec)
Case 30 To 100: r = Decenas(fec \ 10) + IIf(fec Mod 10 <> 0, " y " + num(fec Mod 10), "")
Case 101 To 999: r = Centenas(fec \ 100) + IIf(fec Mod 100 <> 0, " " + num(fec Mod 100), "")
Case 1000 To 1999: r = "Mil" + IIf(fec Mod 1000 <> 0, " " + num(fec Mod 1000), "")
Case 2000 To 999999: r = num(fec \ 1000) + " Mil" + IIf(fec Mod 1000 <> 0, " " + num(fec Mod 1000), "")
Case 1000000 To 1999999: r = "Un Millón" + IIf(fec Mod 1000000 <> 0, " " + num(fec Mod 1000000), "")
Case 2000000 To 1999999999: r = num(fec \ 1000000) + " Millones" + IIf(fec Mod 1000000 <> 0, " " + num(fec Mod 1000000), "")
End Select
num = r
End Function':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
