ok. ich denke mit dem Beispielcode sollte das ganze klar werden.
Dim dCtx As NotesDocument
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim view_zeiten As NotesView
Dim key(1)
Dim m_von As NotesDateTime 'User Eingabefeld in Eingabemaske
Dim m_bis As NotesDateTime 'User Eingabefeld in Eingabemaske
Dim d_von As NotesDateTime 'Dokumentenfeld von bereits vorhandenen Terminen
Dim d_bis As NotesDateTime 'Dokumentenfeld von bereits vorhandenen Terminen
Dim fehler_meldung As String
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view_zeiten = db.GetView("ZEITEN")
Set dCtx = session.DocumentContext
Set m_von = New NotesDateTime( Timevalue(dCtx.co_beginn(0)))
Set m_bis = New NotesDateTime( Timevalue(dCtx.co_ende(0)))
key(0) = dCtx.co_datum(0)
Set col = view_zeiten.GetAllDocumentsByKey(key(0))
Set doc = col.GetFirstDocument
Do While Not doc Is Nothing
Set d_von = New NotesDateTime(Timevalue(doc.co_beginn(0)))
Set d_bis = New NotesDateTime(Timevalue(doc.co_ende(0)))
If m_bis.TimeDifference(d_von) < 0 Or m_von.TimeDifference(d_bis) >0 Then
'--ALLES IO--
Else
'--Zeitüberschneidung--
End If
Set doc = col.GetNextDocument(doc)
Loop
End Sub