This works on machines where the Regional Settings dispaly dates as mm/dd/yyyy. I assume it'll work for you if your Regional Settings normally display dates as you have displayed them in your example, dd/mm/yyyy. NewDate = DateSerial(Year (Date), Month(Date), 1)
Comment