Private Sub CmdRechnung_Click()
1)
  Dim Min As Long
  Dim Std As Long
  Dim Sek As Long
 
2)
  Dim Date1 As String
  Dim Date2 As String
 
 3)
  Date1 = txtdatum
 
4)
  If txtdatum.Text = "" Then
  MsgBox "Kein Eintrag in der Datenbank! Bitte klicken Sie auf, zurück und" & _
    "wählen dort  im Fenster die Datenbank aus!"
  Exit Sub
  End If
 
5)
  Date2 = DateAdd("d", IIf(txtendzeit.Text < txtstartzeit.Text, 1, 0), Date1)
 
6)
    Sek = DateDiff("s", CDate(Date1 & " " & txtstartzeit.Text), _
    CDate(Date2 & " " & txtendzeit.Text))
 
7)
  Min = Int(Sek / 60)
  Sek = Sek - (Min * 60)
  Std = Int(Min / 60)
  Min = Min - (Std * 60)
 8)
  lblzeit.Caption = "" & _
  Format$(Std, "00") & ":" & Format$(Min, "00") & _
  ":" & Format$(Sek, "00")
  End Sub

If Len(a$) Then frmTimeManager.Data.Refresh