1
Gracias

Unas palabras de agradecimiento nunca están de más.

VBA: VB - : Convertir hora > decimal y decimal > Hora

VBA(Visual Basic for Applications) es un lenguaje de programación de macros, es decir, un conjunto de instrucciones que sirven para automatizar tareas repetitivas desde Microsoft Office, pudiéndose emplear en cualquiera de sus productos.




Convertir hora en número decimal

Para ello empleamos la siguiente función:

Sub ConvertirHoraEnDecimal() Dim D As Date, TB, Resultado As Single 'Para el ejemplo, pero puede ser en string D = "12:15" TB = Split(D, ":") Resultado = TB(0) + ((TB(1) * 100) / 60) / 100 End Sub

Convertir número decimal en hora

Si deseamos realizar la operación inversa empleamos esta otra:

Sub ConvertirDecimalEnHora() Dim D As Single, Resultado, e 'Para el ejemplo D = 1.25 e = CStr(Round((D - Int(D)) / 100 * 60, 2)) & "0" Resultado = CStr(Int(D)) & ":" & Mid(e, 3, 2) End Sub


Foto: © Unsplash
1
Gracias

Unas palabras de agradecimiento nunca están de más.

Haz una pregunta
Nuestros contenidos son redactados en colaboración con expertos del ámbito tecnológico bajo la dirección de Jean-François Pillou, fundador de CCM.net y director digital en el Grupo Figaro. CCM es un sitio de tecnología líder a nivel internacional y está disponible en 11 idiomas.
El documento « VBA: VB - : Convertir hora > decimal y decimal > Hora » se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.

0 Comentario