|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
impotence
註冊時間: 2005-02-21 文章: 135 來自: Hong Kong
第 16 樓
|
發表於: 星期四 七月 20, 2006 12:32 pm 文章主題: |
|
|
但我覺得如果可以直接在那個 vct 上選擇 年份 和 月份 會好一點 ! _________________ 一個常常忘記 Command 的人 ! |
|
回頂端 |
|
|
lcj0831
註冊時間: 2003-02-22 文章: 21
第 17 樓
|
發表於: 星期四 七月 20, 2006 3:10 pm 文章主題: |
|
|
請問 garfield 大大
.calendar1.lunar_date 輸出是什麼型態呀!
日期? 文字? 或是其他?
為什麼我會出現運算元型態不符
THISFORM.calendar1.date = DATE(2006,07,20)
THISFORM.TEXT1.VALUE = THISFORM.calendar1.lunar_date |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 18 樓
|
發表於: 星期四 七月 20, 2006 4:39 pm 文章主題: |
|
|
to impotence
原作者所附的是原始碼,
最主要的功能都有了,
其它部分就看你要如何運用,
建議用繼承的方式或建立一個新的class,
將calendar 拉到你的class中即可.
to lcj0831
.lunar_date 傳回文字型態. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
lcj0831
註冊時間: 2003-02-22 文章: 21
第 19 樓
|
發表於: 星期五 七月 21, 2006 8:47 am 文章主題: |
|
|
發現 ICASE() 自定函數找不到?
經測試
nYear=22
nMonth=6
nDay=27
isLeap=.F.
&& 會產生錯誤
?SUBSTR('甲乙丙丁戊己庚辛壬癸',(nYear%10)*2+1,2)+SUBSTR('子丑寅卯辰巳午未申酉戌亥',(nYear%12)*2+1,2)+'年'+IIF(isLeap,'閏','')+SUBSTR('正二三四五六七八九十土臘',nMonth*2-1,2)+'月'+ICASE(nDay<11,'初'+SUBSTR('一二三四五六七八九十',nDay*2-1,2),nDay<20,'十'+SUBSTR('一二三四五六七八九',(nDay-10)*2-1,2),nDay=20,'二十',nDay=30,'三十','廿'+SUBSTR('一二三四五六七八九',(nDay-20)*2-1,2))
&& 刪除 ICASE後可顯示 丙戌年六月
?SUBSTR('甲乙丙丁戊己庚辛壬癸',(nYear%10)*2+1,2)+SUBSTR('子丑寅卯辰巳午未申酉戌亥',(nYear%12)*2+1,2)+'年'+IIF(isLeap,'閏','')+SUBSTR('正二三四五六七八九十土臘',nMonth*2-1,2)+'月'
ICASE()函數(VFP9)是又一類似於IIF()的函數,不同的是它主要用來取代DO CASE語句。
註:若參數數目為偶數,則應按條件、結果配對出現;若為奇數,最後一個總是OTHERWISE值。
所以 VFP 6.0是沒辦法執行的.... |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 20 樓
|
發表於: 星期五 七月 21, 2006 12:37 pm 文章主題: |
|
|
都看到原始程式,
那有不能用的道理.
改一下就好了.
SUBSTR('甲乙丙丁戊己庚辛壬癸',(nYear%10)*2+1,2)+SUBSTR('子丑寅卯辰巳午未申酉戌亥',(nYear%12)*2+1,2)+'年'+IIF(isLeap,'閏','')+SUBSTR('正二三四五六七八九十土臘',nMonth*2-1,2)+'月'+;
iif(nDay<11,'初'+SUBSTR('一二三四五六七八九十',nDay*2-1,2),iif(nDay<20,'十'+SUBSTR('一二三四五六七八九',(nDay-10)*2-1,2),iif(nDay=20,'二十',iif(nDay=30,'三十','廿'+SUBSTR('一二三四五六七八九',(nDay-20)*2-1,2))))) _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
lcj0831
註冊時間: 2003-02-22 文章: 21
第 21 樓
|
發表於: 星期五 七月 21, 2006 12:56 pm 文章主題: |
|
|
呵~ garfield 大大說的是...
想不到 garfield 已經先一步改好了
真是感謝啦! |
|
回頂端 |
|
|
lcj0831
註冊時間: 2003-02-22 文章: 21
第 22 樓
|
發表於: 星期五 七月 21, 2006 2:15 pm 文章主題: |
|
|
FOR VFP6.0
可以查1900~2100的農曆日期
方法 Calender1.date=Date you wish(between 1900/01/01~2100/12/31)
Calendar1.Lunar_date 就是農曆日期字串
THISFORM.calendar1.date = DATE()
THISFORM.TEXT1.VALUE = THISFORM.Calendar1.lunar_date
THISFORM.TEXT2.VALUE = THISFORM.Calendar1.taiwan_date |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 23 樓
|
發表於: 星期五 七月 21, 2006 3:38 pm 文章主題: |
|
|
取之於社會, 用之於社會,
謝謝分享. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
Taikey
註冊時間: 2004-09-20 文章: 5
第 24 樓
|
發表於: 星期一 七月 31, 2006 9:35 am 文章主題: |
|
|
garfield 大大, 可以給我一份農曆日期原始程式 ?
3q |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 25 樓
|
發表於: 星期一 七月 31, 2006 11:10 am 文章主題: |
|
|
遠在天邊, 近在眼前. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
guku1101
註冊時間: 2006-07-03 文章: 84 來自: 高雄
第 26 樓
|
發表於: 星期二 九月 26, 2006 1:36 pm 文章主題: |
|
|
呼~我也試不出來耶~都會出現運算子/運算元型態不相符~~garfield大大能不能提供範例給小弟看看呢~謝謝 _________________ BB |
|
回頂端 |
|
|
a123eric
註冊時間: 2003-10-20 文章: 64
第 27 樓
|
發表於: 星期二 九月 26, 2006 2:52 pm 文章主題: |
|
|
會出現型態不符… 是不是語法錯誤了呢?把傳入日期的程式碼登出來
會不會是傳入 date 的值沒有轉成日期型態
剛剛試了一下…date的輸入也有防止錯誤的預防:判斷型態
所以應該不會有錯 |
|
回頂端 |
|
|
guku1101
註冊時間: 2006-07-03 文章: 84 來自: 高雄
第 28 樓
|
發表於: 星期二 九月 26, 2006 6:17 pm 文章主題: |
|
|
呵呵~~都沒看到後面就亂問我真的金害~不好意思~ _________________ BB |
|
回頂端 |
|
|
guku1101
註冊時間: 2006-07-03 文章: 84 來自: 高雄
第 29 樓
|
發表於: 星期二 九月 26, 2006 6:19 pm 文章主題: |
|
|
我已經試出來了~真的好用~謝謝大家 _________________ BB |
|
回頂端 |
|
|
a123eric
註冊時間: 2003-10-20 文章: 64
第 30 樓
|
發表於: 星期三 九月 27, 2006 12:18 am 文章主題: |
|
|
小幅修改了一下
加上年、月、日增量處理
還有直接輸入處理
這樣用起來應該更容易 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|