如何输入日期显示当月月历?,,新手求救,

如果可能,有没有高手能帮忙给出完整代码,小弟初学VFP,

因这件事很急用,,望高手帮忙,,HELP~~~

程序代码：

Clear
dDate=Date()
STORE [] TO CRQ,CRQ1
A=REPLICATE([ ],(DOW(Date(Year(dDate),MONTH(dDate),1),2)-1)*3)

 
?[本月日历：]+tran(date())
?[一 二 三 四 五 六 日]
FOR I=1 TO Day(GOMONTH(dDate-Day(dDate)+1,1)-1)
    CRQ=CRQ+IIF(I=1,A,[])+PADL(I,2,[ ])+IIF(DOW(Date(Year(dDate),MONTH(dDate),I),2)=7,CHR(13)+CHR(10),[ ])
ENDFOR
?CRQ