Obliczenia z tysięcznymi ułamkami sekundy przez funkcję niestandardową przy użyciu VBA

Pytanie: Obliczenia z wartościami w obszarze dziesiątych części sekundy
są do zrobienia

Odpowiedź: Wstaw następujący kod w odpowiednich modułach. Z następującą funkcją zdefiniowaną przez użytkownika. składnia: =spectime(A1)

Umieść poniższy kod w standardowym module

 Function 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 Funkcja zakończenia