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