Dim vDate As Variant
Dim vTime As Variant
Dim sMonth As String
 
vDate = Format$(CDate(zeitpunkt), "dd.mm.yy")
vTime = Format$(CDate(zeitpunkt), "hh:nn:ss")
If vTime >= "21:30:00" And vTime <= "23:59:59" Then
  vDate = DateAdd("d", 1, vDate)
End If
sMonth = Format$(vDate, "mm.yy")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de