The read.xlsx() function also has the parameter detectDates which defaults to FALSE. So, you might just try
library(openxlsx)
bd <- read.xlsx("BASDAT.xlsm", detectDates = TRUE)
2 Likes