Workbook.Date1904 (Excel)

True if the workbook uses the 1904 date system.

ActiveWorkbook.Date1904 = True