虽找到代码,但看不懂。想请人帮忙根据代码写根据日期求出农历的程序。
我想把ddd.dbf中的日期转换成农历。我到本网站上搜到一篇文章。但我没看懂。我简单粗暴地复制到prg文件中去运转,报的错我也看不懂,更不会改。
有没有人能根据txt文件中的代码,写个form或prg,来把ddd.dbf中的日期换成农历呢?
程序代码: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