'Rechnet eine Zeitdauer als String in eine Dezimalzahl um
'Beispiele:
'DezimalStunden("8:45", 3) ergibt 8.75
'DezimalStunden("8:47", 3) ergibt 8.783
'DezimalStellen = -1 ohne Abrundung
'DezimalStunden("8:47", -1) ergibt 8.783333333333333
Sub DezimalStunden(Zeit As String, DezimalStellen As Int) As Double
Dim st(2) As String
Dim s, m , d As Double
st = Regex.Split(":", Zeit) ' zerteilt den String in Stunden und Minuten
s = st(0) ' Stunden als Zahl
m = st(1) ' Minuten als Zahl
d = s + m / 60 ' Dezimaldauer
If DezimalStellen = -1 Then
Return d ' gibt die Dauer mit allen Dezimalstellen zurueck
Else
Return Round2(d, DezimalStellen) ' abrunden auf DezimalStellen
End If
End Sub