1
Gracias

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

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



A continuación veremos dos funciones utiles:

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


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


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