Pergunta: Cálculos com valores na área de décimos avos de segundo
está para ser feito
Responder: Insira o código a seguir nos módulos apropriados. Com a seguinte função definida pelo usuário. sintaxe: = espetáculo (A1)
Coloque o código abaixo no módulo padrão
Função 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 (Left (txt, 2)) / (DIV / 60) SpecTime = dblValue Função final