Public Function check_period(Starttime As String, Endtime As String, NewDay As _
  Boolean)
 
Dim start As Double
Dim ende As Double
Dim nowtime As Double
 
If NewDay = True Then
 
start = CDbl(CDate((Date - 1) & " " & Starttime))
ende = CDbl(CDate(Date & " " & Endtime))
nowtime = CDbl(CDate(Format$(now, "dd.mm.yyyy hh:nn")))
 
If nowtime > start And nowtime < ende Then
periode = True
Else
periode = False
End If
 
Else
start = CDbl(CDate(Date & " " & Starttime))
ende = CDbl(CDate(Date & " " & Endtime))
nowtime = CDbl(CDate(Format$(now, "dd.mm.yyyy hh:nn")))
 
If nowtime > start And nowtime < ende Then
periode = True
Else
periode = False
End If
 
End If

Wolfgang Schwarz