Extracting Date (year,month,day) from cell with Date (year,month,day,time)

Hi All,

I have a cell with a date and time in and I need VBA to extract just the date and then pass this to a variable. I assume a Date variable type is the best one but how do I truncate the cell so it's just the date? I've tried the obvious thing of using:

Application.WorksheetFunction.Date()

But it seems this function can't be access via VBA? Does anyone have any suggestions?

Thanks

Assuming your variable is named Dte and is Dim'med as Date data type and assuming the date/time value is in cell A1...

D = Int(Range("A1").Value)

Great, thanks! A lot simpler than I thought but yes the date is just an integer isn't it? Obvious really! :D

In Excel and VBA, date/times are floating point numbers... the integer part is the number of days offset from some "date zero" and the decimal part is the fraction of a 24-hour day for time. The formatting so that dates "look" like dates is for humans only... the computer never really sees the date the way you do... it just sees the floating point number.