Cálculos con milésimas fracciones de segundos por función personalizada usando VBA

Pregunta: Cálculos con valores en el área de una milésima de segundo
están por hacer

Respuesta: Inserte el siguiente código en los módulos correspondientes. Con la siguiente función definida por el usuario. sintaxis: = spectime (A1)

Coloque el siguiente código en el módulo estándar

 Función SpecTime (txt As String) Const DIV As Long = 86400 Dim dblValue As Double dblValue = CInt (Right (txt, 4)) / (DIV * 10000) dblValue = dblValue + CInt (Mid (txt, 4, 2)) / DIV dblValue = dblValue + CInt (Izquierda (txt, 2)) / (DIV / 60) SpecTime = dblValue Función final