/* 首先是比较DDMMYY格式 */
if input(DateString,ddmmyy10.) ne .
then Date=input(DateString,ddmmyy10.);
/其次是比较MMDDYY格式*/
else if input(DateString,mmddyy10.) ne .
then Date=input(DateString,mmddyy10.);
/比较的是YYMMDD*/
..............................................................................