method set_date d = date <- d