Beräkningar med en tusendels bråkdelar av sekunder med anpassad funktion med VBA

Fråga: Beräkningar med värden inom området tiondel och en sekund
ska göras

Svar: Sätt in följande kod i lämpliga moduler. Med följande användardefinierade funktion. syntax: = spectime (A1)

Placera koden nedan i standardmodulen

 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 (vänster (txt, 2)) / (DIV / 60) SpecTime = dblValue Slutfunktion