Beregninger med en tusindedel brøkdele af sekunder ved brugerdefineret funktion ved hjælp af VBA

Spørgsmål: Beregninger med værdier i området tiendedel af et sekund
skal gøres

Svar: Indsæt følgende kode i de relevante moduler. Med følgende brugerdefinerede funktion. syntaks: = spectime (A1)

Placer koden herunder i standardmodulet

 Funktion 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 (venstre (txt, 2)) / (DIV / 60) SpecTime = dblValue slutfunktion