VB计算农历的算法[3]

                runyue = true
            else
                runyue = false
                addmonth = addmonth + 1
            end if
            addday = 1
        end if
       
    next
 
    md$ = "初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十"
    dd$ = mid(md$, (addday - 1) * 2 + 1, 2)
    mm$ = mid("正二三四五六七八九十寒腊", addmonth, 1) + "月"
    yougetdate = dateserial(addyear, addmonth, addday)
    tiangan$ = "甲乙丙丁戊已庚辛壬癸"
    dizhi$ = "子丑寅卯辰巳午未申酉戌亥"
    dim ganzhi(0 to 59) as string * 2
    for i = 0 to 59
     ganzhi(i) = mid(tiangan$, (i mod 10) + 1, 1) + mid(dizhi$, (i mod 12) + 1, 1)
    'ff$ = ff$ + ganzhi(i)
    next i
    'msgbox ff$, , len(ff$)
    ylyear = ganzhi((addyear - 4) mod 60)
    shu$ = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
    ylshuxing = mid(shu$, ((addyear - 4) mod 12) + 1, 1)
    if runyue then mm$ = "闰" + mm$