Vba Vb Convertir Hora Decimal y Decimal Hora 4888 l6xy5u
1
VBA: VB - : Convertir hora > decimal y decimal > Hora Junio 2014 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 Este documento intitulado « VBA: VB - : Convertir hora > decimal y decimal > Hora » de Kioskea (es.kioskea.net ) esta puesto a diposición bajo la licencia Creative Commons . Puede copiar, modificar bajo las condiciones puestas por la licencia, siempre que esta nota sea visible.
-
Upload
omar-david-tarrillo-vargas -
Category
Documents
-
view
219 -
download
3
description
linea de código visual basic que muestra como convertir los decimales en horas.
Transcript of Vba Vb Convertir Hora Decimal y Decimal Hora 4888 l6xy5u
VBA: VB - : Convertir hora > decimal ydecimal > HoraJunio 2014
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
Este documento intitulado « VBA: VB - : Convertir hora > decimal y decimal > Hora » de Kioskea (es.kioskea.net)esta puesto a diposición bajo la licencia Creative Commons. Puede copiar, modificar bajo las condiciones puestaspor la licencia, siempre que esta nota sea visible.
