特定日期转换

YZC51

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

谢谢老师花花鼓励！
简化下
Public Function ss(t)
    ss = sn(t) & sy(t)
End Function
',NUMBERSTRING(ROW($1:$99),1)

Public Function sn(t) '求年数
    Dim arr(1 To 99)
    If InStr(t, "年") Then
        tt = Split(t, "年")(0)
        sn = z2a(tt) & "年"
    Else
        sn = ""
    End If
End Function

Public Function sy(t) '求月数
    Dim arr(1 To 99)
    If InStr(t, "个月") Then
        tt = Replace(t, "个月", "")
        If InStr(t, "年") Then tt = Split(tt, "年")(1)
        sy = z2a(tt) & "个月"
    Else
        sy = ""
    End If
End Function

Function z2a(tt)
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To 100
        d(Application.Text(i, "[<20][dbnum1]d;[dbnum1]")) = i
        If d(tt) = i Then z2a = i: Exit For
    Next i
End Function

Public Function z2a1(t, z) '中文数字与阿拉伯数字互转
    Dim arr(1 To 201)
    If z Then
        z2a1 = Application.Text(t, "[<20][dbnum1]d;[dbnum1]")
    Else
        For i = 1 To 201
            arr(i) = Application.Text(i, "[<20][dbnum1]d;[dbnum1]")
            If arr(i) = t Then z2a1 = i: Exit Function
        Next
    End If
End Function