Inhoudsopgave
Vraag: Berekeningen met waarden in het gebied van tienduizendste van een seconde
zijn te doen
Antwoord geven: Plaats de volgende code in de juiste modules. Met de volgende door de gebruiker gedefinieerde functie. syntaxis: = spectime (A1)
Plaats onderstaande code in de standaard module
Functie 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-functie
