VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

農曆控制項示例(轉貼)
前往頁面 上一頁  1, 2, 3  下一頁
 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
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
文章: 2157


第 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是沒辦法執行的.... Crying or Very sad
回頂端
檢視會員個人資料 發送私人訊息
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 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
文章: 2157


第 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
文章: 2157


第 25 樓

發表發表於: 星期一 七月 31, 2006 11:10 am    文章主題: 引言回覆

遠在天邊, 近在眼前.
_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
guku1101



註冊時間: 2006-07-03
文章: 84
來自: 高雄

第 26 樓

發表發表於: 星期二 九月 26, 2006 1:36 pm    文章主題: 引言回覆

呼~我也試不出來耶~都會出現運算子/運算元型態不相符~~garfield大大能不能提供範例給小弟看看呢~謝謝
_________________
BB
回頂端
檢視會員個人資料 發送私人訊息 雅虎訊息通 MSN Messenger
a123eric



註冊時間: 2003-10-20
文章: 64


第 27 樓

發表發表於: 星期二 九月 26, 2006 2:52 pm    文章主題: 引言回覆

會出現型態不符… 是不是語法錯誤了呢?把傳入日期的程式碼登出來
會不會是傳入 date 的值沒有轉成日期型態

剛剛試了一下…date的輸入也有防止錯誤的預防:判斷型態
所以應該不會有錯
回頂端
檢視會員個人資料 發送私人訊息
guku1101



註冊時間: 2006-07-03
文章: 84
來自: 高雄

第 28 樓

發表發表於: 星期二 九月 26, 2006 6:17 pm    文章主題: 引言回覆

呵呵~~都沒看到後面就亂問我真的金害~不好意思~ Embarassed
_________________
BB
回頂端
檢視會員個人資料 發送私人訊息 雅虎訊息通 MSN Messenger
guku1101



註冊時間: 2006-07-03
文章: 84
來自: 高雄

第 29 樓

發表發表於: 星期二 九月 26, 2006 6:19 pm    文章主題: 引言回覆

我已經試出來了~真的好用~謝謝大家
_________________
BB
回頂端
檢視會員個人資料 發送私人訊息 雅虎訊息通 MSN Messenger
a123eric



註冊時間: 2003-10-20
文章: 64


第 30 樓

發表發表於: 星期三 九月 27, 2006 12:18 am    文章主題: 引言回覆

小幅修改了一下
加上年、月、日增量處理
還有直接輸入處理
這樣用起來應該更容易
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
前往頁面 上一頁  1, 2, 3  下一頁
2頁(共3頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作