Set Parameter to today's date =DateSerial(Year(Now()), Month(Now()), Day(Now())) Begining of the year =DateSerial(Year(Now()), "1", "1")