Berechnungen mit tausendstel Sekundenbruchteilen durch benutzerdefinierte Funktion mit VBA

Inhaltsverzeichnis

Frage: Berechnungen mit Werten im Bereich von Zehntausendstelsekunden
sind zu machen

Antworten: Fügen Sie den folgenden Code in die entsprechenden Module ein. Mit der folgenden benutzerdefinierten Funktion. Syntax: =Spectime(A1)

Fügen Sie den folgenden Code in das Standardmodul ein

 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(Left(txt, 2)) / (DIV / 60) SpecTime= dblValue End Function