📅 日期时间处理

/* AE开始日期三级插补 */
data adae2;
    set adae1;
    format ASTDT date9.;  length ASTDTF $1;

    /* Level 1: 完整日期 YYYY-MM-DD */
    if count(AESTDTC, '-') = 2 then
        ASTDT = input(AESTDTC, yymmdd10.);

    /* Level 2: 只有年月 YYYY-MM → 开始日期取月初 */
    else if count(AESTDTC, '-') = 1 then do;
        if AESTDTC = put(TRTSDT, yymmd7.) then ASTDT = TRTSDT;
        else ASTDT = input(cats(AESTDTC, '-01'), yymmdd10.);
        ASTDTF = 'D';  /* 日级插补 */
    end;

    /* Level 3: 只有年份 YYYY → 优先对齐首次给药年 */
    else if length(AESTDTC) = 4 then do;
        if AESTDTC = put(year(TRTSDT), 4.) then ASTDT = TRTSDT;
        else ASTDT = input(cats(AESTDTC, '-01-01'), yymmdd10.);
        ASTDTF = 'M';  /* 月级插补 */
    end;

    /* Level 4: 完全缺失 → 用首次给药日 */
    else if AESTDTC = '' then do;
        ASTDT = TRTSDT;
        ASTDTF = 'Y';  /* 年级插补 */
    end;
run;

/* AE结束日期插补 → 取月末/年末 */
data adae2;
    set adae1;
    format AENDT date9.;  length AENDTF $1;

    if count(AEENDTC, '-') = 2 then
        AENDT = input(AEENDTC, yymmdd10.);

    else if count(AEENDTC, '-') = 1 then do;
        /* 只有年月 → 取该月最后一天 */
        AENDT = intnx('month',
                      input(cats(AEENDTC, '-01'), yymmdd10.),
                      0, 'end');
        AENDTF = 'D';
    end;

    else if length(AEENDTC) = 4 then do;
        /* 只有年份 → 取12月31日 */
        AENDT = input(cats(AEENDTC, '-12-31'), yymmdd10.);
        AENDTF = 'M';
    end;

    /* 插补后校验：结束日不能超过末次接触日 */
    if AENDTF ^= '' and LSTALVDT ^= . then do;
        if AENDT > LSTALVDT then AENDT = LSTALVDT;
    end;

    /* 插补后校验：开始日不能晚于结束日 */
    if ASTDTF ^= '' and AENDT ^= . then do;
        if ASTDT > AENDT then ASTDT = AENDT;
    end;
run;

/* AE日期+时间完整插补（I期） */
data adae2;
    set adae1;
    format ASTDT date9. ASTTM time8. ASTDTM datetime20.;
    length ASTDTF ASTTMF $1;

    /* --- 日期部分 --- */
    ASTDC_DATE = strip(scan(AESTDTC, 1, 'T'));
    ASTDC_TIME = strip(scan(AESTDTC, 2, 'T'));

    if count(ASTDC_DATE, '-') = 2 then
        ASTDT = input(ASTDC_DATE, yymmdd10.);
    else if count(ASTDC_DATE, '-') = 1 then do;
        if ASTDC_DATE = put(TRTSDT, yymmd7.) then ASTDT = TRTSDT;
        else ASTDT = input(cats(ASTDC_DATE, '-01'), yymmdd10.);
        ASTDTF = 'D';
    end;

    /* --- 时间部分 --- */
    if count(ASTDC_TIME, ':') = 1 then
        ASTTM = input(ASTDC_TIME, time8.);
    else if length(ASTDC_TIME) = 2 then do;
        /* 只有小时HH → 对齐首次给药的小时或填:00 */
        if ASTDT = TR01SDT and input(ASTDC_TIME, best.) = hour(TR01STM) then
            ASTTM = TR01STM;
        else ASTTM = input(cats(ASTDC_TIME, ':00'), time8.);
        ASTTMF = 'M';
    end;
    else if ASTDC_TIME = '' then do;
        if ASTDT = TR01SDT then ASTTM = TR01STM;
        else ASTTM = input('00:00', time8.);
        ASTTMF = 'H';
    end;

    /* 合并为datetime（秒级） */
    ASTDTM = ASTDT * 86400 + ASTTM;
    drop ASTDC_:;
run;