Update date.toBusDate.R

Refine format.