extract_date function

Extract sampling date from a vector of sample names