Now() function with time trim
Dates in VBA are just floating point numbers, where the integer part represents the date and the fraction part represents the time. So in addition to using the Date function as tlayton says (to get the current date) you can also cast a date value to a integer to get the date-part from an arbitrary date: Int(myDateValue).
DateValue(CStr(Now()))That's the best I've found. If you have the date as a string already you can just do:
DateValue("12/04/2012 04:56:15")or
DateValue(*DateStringHere*)Hope this helps someone...