= "鼠牛虎兔龙蛇马羊猴鸡狗猪"
   
    On Error Resume Next
    Dim iy, im, id, isLeap
    im = CInt(Left(sNl, 2))
    isLeap = CInt(Mid(sNl, 3, 1))
    id = CInt(Mid(sNl, 4, 2))
    iy = CInt(Right(sNl, 4))
    strnl = Mid(lnl_cm, im, 1) & "月" & Mid(lnl_md, (id - 1) * 2 + 1, 2)
    If isLeap > 0 Then strnl = "闰" & strnl
    iy = iy - 4
    sShuXiang = Mid(lnl_shu, (iy Mod 12) + 1, 1)
    sYear = Mid(lnl_tiangan, (iy Mod 10) + 1, 1) & Mid(lnl_dizhi, (iy Mod 12) + 1, 1)
End Function

上一页  [1] [2]