[求助]如何输入日期显示当月月历
如何输入日期显示当月月历?,,新手求救,
如果可能,有没有高手能帮忙给出完整代码,小弟初学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