icd儿童期是几岁到几岁:已编好了阳历，怎么把阴历编进去，阴历怎么编？（VB）

就是说我编好了一个万年历，但是老师要我们同时显示阳历．阴历和节气，我编的只有阳历，怎么把阴历和节气加进去？要一一对应的．以下是我的阳历代码：
Public Sub Calendar()
Dim i, firstday, num_day As Integer
Dim d

firstday = DateSerial(yr, mon, 1)
num_day = DatePart("w", firstday)

obj.Row = 1
obj.Col = num_day - 1

For i = 1 To 31
d = DateSerial(yr, mon, i)

If Month(d) <> mon Then
Exit For
Else
If obj.Col = 6 And i <> 1 Then
obj.Row = obj.Row + 1
obj.Col = 0
ElseIf i <> 1 Then
obj.Col = obj.Col + 1
End If
obj.Text = i

If Day(Date) = i Then obj.CellBackColor = RGB(255, 0, 0)
End If
Next

obj.Row = rNum - 1
obj.Col = cNum - 2
obj.Text = yr & "年"

obj.Col = cNum - 1
obj.Text = mon & "月"
可以的话哪位大虾把代码发到我邮箱：dunlwave@126.com
谢谢！！
不用那么复杂哦，只用另外编个阴历的程序，再加进去就好了嘛，只是怎么编和怎么加不懂，就是一个方格里面上面是阳历，下面是阴历，用的是MSFlexGrid控件显示表格