Sommario
Domanda: Calcoli con valori nell'area del decimo di secondo
sono da fare
Risposta: Inserire il seguente codice nei moduli appropriati. Con la seguente funzione definita dall'utente. sintassi: =specttime(A1)
Inserisci il codice qui sotto nel modulo standard
Funzione 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 End Function
