sDate = Format(Date, "dddd dd") & Mid("thstndrdth", (DatePart("d", Date) Mod 10) * 2 + 1, 2) & " " & Format(Date, "mmmm yyyy") Example - Saturday 21st August 2010
MonthName(3) would return 'March' MonthName(3, TRUE) would return 'Mar' MonthName(7, FALSE) would return 'July'