Beregninger med en tusendel brøkdeler av sekunder med tilpasset funksjon ved bruk av VBA

Anonim

Spørsmål: Beregninger med verdier i området tiendedel av et sekund
skal gjøres

Svar: Sett inn følgende kode i de aktuelle modulene. Med følgende brukerdefinerte funksjon. syntaks: = spectime (A1)

Plasser koden nedenfor i standardmodulen

 Funksjon SpecTime (txt As String) Const DIV As Long = 86400 Dim dblValue As Double dblValue = CInt (Right (txt, 4)) / (DIV * 10000) dblValue = dblValue + CInt (Midt (txt, 4, 2)) / DIV dblValue = dblValue + CInt (Venstre (txt, 2)) / (DIV / 60) SpecTime = dblValue Sluttfunksjon