|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
nh8287
註冊時間: 2007-06-11 文章: 30
第 16 樓
|
發表於: 星期五 九月 07, 2007 5:37 pm 文章主題: |
|
|
提供一個實用的萬年曆,供網友參考。
設定 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
註冊時間: 2011-12-25 文章: 130
第 17 樓
|
發表於: 星期日 三月 17, 2024 11:58 am 文章主題: |
|
|
? GOMONTH(DATE(),1) - DAY(DATE()) |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|