Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Rechnen mit Zehntausendstel-Sekunden

Gruppe

Zeit

Problem

Es soll mit Werten im Zehntausendstelsekundenbereich gerechnet werden.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function SpecTime(sTxt As String)
   Const DIV As Long = 86400
   Dim dValue As Double
   dValue = CInt(Right(sTxt, 4)) / 1000 / DIV
   dValue = dValue + CInt(Mid(sTxt, 4, 2)) / (DIV / 60)
   dValue = dValue + CInt(Left(sTxt, 2)) / (DIV / 60 / 60)
   SpecTime = dValue
End Function

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Zeit