特定日期转换

ph378

YZC51 发表于 2019-12-7 20:27
参看图片

YZC51

ph378 发表于 2019-12-7 20:25
谢了！
无“年”的不行

5楼老师的公式也很正确！

ph378

YZC51 发表于 2019-12-7 20:31
5楼老师的公式也很正确！

无“年”不行

YZC51

ph378 发表于 2019-12-7 20:30

公式是按个月做的！

ph378

YZC51 发表于 2019-12-7 20:38
公式是按个月做的！

谢了！

YZC51

ph378 发表于 2019-12-7 20:41
谢了！

完善下
=IF(ISERR(FIND("年",A2)),"",MATCH(LEFT(A2,FIND("年",A2)-1),TEXT(ROW($1:$100),"[<32][dbnum1]d;[dbnum1]"),)&"年")&IF(ISERR(FIND("个月",A2)),"",MATCH(SUBSTITUTE(MID(A2,IF(ISERR(FIND("年",A2)),1,FIND("年",A2)+1),99),"个月",""),TEXT(ROW($1:$100),"[<32][dbnum1]d;[dbnum1]"),)&"个月")
再减少几个字符
=IFERROR(MATCH(LEFT(A2,FIND("年",A2)-1),TEXT(ROW($1:$100),"[<32][dbnum1]d;[dbnum1]"),)&"年","")&IFERROR(MATCH(SUBSTITUTE(MID(A2,IF(ISERR(FIND("年",A2)),1,FIND("年",A2)+1),99),"个月",""),TEXT(ROW($1:$100),"[<32][dbnum1]d;[dbnum1]"),)&"个月","")

ph378

YZC51 发表于 2019-12-7 21:00
完善下
=IF(ISERR(FIND("年",A2)),"",MATCH(LEFT(A2,FIND("年",A2)-1),TEXT(ROW($1:$100),"[

很好了！

YZC51

ph378 发表于 2019-12-7 21:12
很好了！

能用就好！满意的话，花花鼓励下！

ph378

YZC51 发表于 2019-12-7 21:00
完善下
=IF(ISERR(FIND("年",A2)),"",MATCH(LEFT(A2,FIND("年",A2)-1),TEXT(ROW($1:$100),"[

这个数组公式如果用VAB自动填充要如何修改？

YZC51

ph378 发表于 2019-12-13 11:44
这个数组公式如果用VAB自动填充要如何修改？

请参考
Public Function ss(t)
    ss = sn(t) & sy(t)
End Function

Public Function sn(t) '求年数
    Dim arr(1 To 99)
    If InStr(t, "年") Then
        temp = Split(t, "年")(0)
        For i = 1 To 99
            arr(i) = Application.Text(i, "[<32][dbnum1]d;[dbnum1]")
        Next
        For m = 1 To 99
            If arr(m) = temp Then sn = m & "年": Exit Function
        Next
    Else
        sn = ""
    End If
End Function

Public Function sy(t) '求月数
    Dim arr(1 To 99)
    If InStr(t, "个月") Then
        t = Replace(t, "个月", "")
        If InStr(t, "年") Then temp = Split(t, "年")(1) Else temp = t
        For i = 1 To 99
            arr(i) = Application.Text(i, "[<32][dbnum1]d;[dbnum1]")
        Next
        For m = 1 To 99
            If arr(m) = temp Then sy = m & "个月": Exit Function
        Next
    Else
        sy = ""
    End If
End Function