want to take out date only

[aanan1417]

data have; input d $ date14.; datalines; 20may2021 5:15 ; run; data want; input d $ date9.; datalines; 20may2021 ; run;

[novinosrin · Accepted solution]

data have;
 input d $14.; 
datalines; 
 20may2021 5:15 
 ;
run; 

data want;
 set have;
 date=input(strip(d),date9.);
 format date date9.;
run;