Create date.toBusDate.R