VFP 愛用者社區

[nh8287]

提供一個實用的萬年曆，供網友參考。

設定 FORM 的 INIT 如下：

WITH THISFORM
　SYS(2002)
　SET DATE TO ymd
　PUBLIC Y,m,d,s,nd,nw,ymd,xyy,xmm,xdd,xym,xymd,d[42]

　.yy.VALUE=YEAR(DATE())
　.mm.VALUE=MONTH(DATE())
　nw=DOW(DATE()-DAY(DATE())+1)
　nd=GOMONTH(DATE(),1)-DAY(GOMONTH(DATE(),1))-(DATE()-DAY(DATE())+1)+1

　STORE ' ' TO d
　FOR i = 1 TO nd
　d((i+nw)-1)=ALLTRIM(STR(i))
　ENDFOR
　.REFRESH()
　pos=(13+nw+DAY(DATE()))-2
　.CONTROLS(pos).SETFOCUS
　.CONTROLS(pos).FORECOLOR=RGB(0,128,128)
ENDWITH

希望各位先學指教...！

[lygcw9603]

? GOMONTH(DATE(),1) - DAY(DATE())