Private Sub Form_Load()
   Dim vdate As String
   Dim bdate As String
   Dim vdate1 As String
   Dim bdate1 As String
 
   'nicht im Zeitraum
   MsgBox DateInDate("01.01.02", "31.01.02", "01.02.02", "26.02.02")
   'Vier Tage im Zeitraum
   MsgBox DateInDate("01.01.02", "31.01.02", "28.01.02", "26.02.02")
   'Voll im Zeitraum
   MsgBox DateInDate("01.01.02", "31.01.02", "03.01.02", "26.01.02")
End Sub
 
 
'Rückgabewerte
'0 keine Übereinstimmung
'> 0 Anzahl der Tage im Prüfungszeitraum enthalten.
Private Function DateInDate(ByVal vXDate As Date, _
                            ByVal bXDate As Date, _
                            ByVal vyDate As Date, _
                            ByVal bYDate As Date) As Long
     Dim n As Long
 
     DateInDate = 0
 
     If DateDiff("d", vyDate, bXDate) > 0 And DateDiff("d", vXDate, vyDate) >= _
       0 Then n = 1
     If n > 0 Then
         If DateDiff("d", bYDate, bXDate) >= 0 Then n = 2
     End If
 
     Select Case n
         Case 1
            DateInDate = DateDiff("d", vyDate, bXDate) + 1
         Case 2
            DateInDate = DateDiff("d", vyDate, bYDate) + 1
     End Select
 
End Function