Public Function MonthName(ByVal nMonth As Integer, Optional ByVal bAbbreviate _
  As Boolean = False) As String
  If bAbbreviate Then
    MonthName = Format$(DateSerial(2003, nMonth, 1), "mmmm")
  Else
    MonthName = Format$(DateSerial(2003, nMonth, 1), "mmmm")
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de