Ok, I figuired out a solution.
You need to convert the DateTime into ShortDate string format and then convert it back to a Date. The example code I posted also picks a date 30 days ago.
=DateValue(FormatDateTime(DateAdd("d",-30,Now),DateFormat.ShortDate))
I guess no one in Dev thought that people would want to be able to view a calendar date picker without a time.