|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
蔡文華
註冊時間: 2005-10-31 文章: 118
第 16 樓
|
發表於: 星期五 四月 14, 2006 9:28 am 文章主題: |
|
|
我想世界就是有愛吧 |
|
回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25 文章: 130
第 17 樓
|
發表於: 星期二 九月 01, 2020 3:26 pm 文章主題: |
|
|
Clear
ldDate=Date()
LOCAL Adate[31]
lcStr="一二三四五六七八九"
FOR I=1 TO 31
Adate[I] = ICASE(BETWEEN(i, 1, 9), SUBSTR(lcStr, (i - 1) * 2 + 1, 2), BETWEEN(i, 10, 19), "十" + SUBSTR(lcStr, (i % 10 - 1) * 2 + 1, 2), SUBSTR(lcStr, (INT(i / 10) - 1) * 2 + 1, 2) + "十" + SUBSTR(lcStr, (i % 10 - 1) * 2 + 1, 2))
ENDFOR
* 年
?Chrtranc(Transform(Year(ldDate)),"0123456789", "零一二三四五六七八九") + "年"
* 月
?Adate(Month(ldDate)) + "月"
* 日
?Adate(Day(ldDate)) + "日" |
|
回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25 文章: 130
第 18 樓
|
發表於: 星期五 三月 15, 2024 11:26 am 文章主題: |
|
|
lcDate = "零,一,二,三,四,五,六,七,八,九,十,......,三十一" |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|