Sub dateFormat() Dim datDateTime As Date datDateTime = #11/30/1998 10:54:17# Debug.Print datDateTime Debug.Print Format(datDateTime, "mm dddd hh:mm") End Sub