SAS 日期格式处理1 (CDISC)

RAW.CM中有字符型格式CMSTDTC，如下图。

注：日期CMSTDTC已是字符型，非yymmdd10.等格式。

现想将：
1.缺失月和日的，只保留年。
if count(cmstdtc,’-UNK’)=2 then _cmstdtc=compress(cmstdtc,’-UNK’);

2.或者只缺失日的，保留年和月。
else if find(cmstdtc,‘UNK’,‘i’,5)=9 then _cmstdtc=substr(cmstdtc,1,7);

3.或者只缺失月的，保留年和日。
else if find(cmstdtc,‘UNK’,‘i’,5)=6 then _cmstdtc=tranwrd(cmstdtc,‘UNK’,’-’);

{FIND 函数的用法}
【功能】字符串中的某段字符在字符中的位置。

【语法】

从字符串中第“数字”开始查找字符串的位置，取i表示不区分大小写。

【注意】不管起始位置是多少，返回的位置数值始终是在源字符串中的位置。

【本例】在CMSTDTC中从第5个字符，不区分大小写地查找字符串‘UNK’的位置，当返回的位置值为6（即月缺失，此时‘UNK’的U的位置为6）时，将‘UNK’这个字符串变为‘-’。

4.否则定义的新变量_CMSTDTC等于原日期。
else _cmstdtc=cmstdtc;

得到处理好的新变量_CMSTDTC的结果如下图第2列。