d=CDate("13.02.2016 15:54:12"): ?DateValue(d)+Timeserial(Hour(d),0,0) 13.02.16 15:00:00
UPDATE [Таблица] SET [MayDate] = DateValue([MayDate]) + TimeSerial(Hour([MayDate]),0,0)