Dieses, recht simple, Beispiel
demonstriert, wie
man Stunden addieren kann:
Sub Testen()
MsgBox ZeitAddieren("12:30", "12:15") & " Stunden"
End Sub
Function ZeitAddieren(Wert1 As Date, Wert2 As Date)
ZeitAddieren = Format(Wert1 * 24 + Wert2 * 24, "0.00")
End Function
|
