虽找到代码，但看不懂。想请人帮忙根据代码写根据日期求出农历的程序。

public oform1
set classlib to datepic.vcx additive
oform1=newobject("form1")
oform1.show
return

**********************************************
define class form1 as form
    top = 0
    left = 0
    height = 212
    width = 403
    docreate = .t.
    caption = "form1"
    windowstate = 0
    name = "form1"

    add object timea1 as timea with ;
        top = 24,;
        left = 12,;
        name = "timea1",;
        label4.name = "label4",;
        label8.name = "label8",;
        timer1.name = "timer1",;
        label1.name = "label1",;
        label2.name = "label2",;
        label3.name = "label3",;
        label5.name = "label5",;
        label6.name = "label6",;
        label7.name = "label7",;
        label9.name = "label9"

enddefine