VFP生成本月日历的方法

作者在 2015-03-13 14:47:20 发布以下内容
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
日期时间问题 | 阅读 1773 次
文章评论,共0条
游客请输入验证码
浏览396897次