DATETIMEPICKER轉換民國格式的問題 |
答題得分者是:st33chen
|
andychen8888
一般會員 發表:14 回覆:25 積分:7 註冊:2007-02-05 發送簡訊給我 |
|
herbert2
尊榮會員 發表:58 回覆:640 積分:894 註冊:2004-04-16 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好, 我想 正統的作法應該是 繼承後再更改元件. 現在 我試了一個 偷吃步 的方法 就是拉一個 datetimepicker( format 設為 yy/MM/dd), 再拉一個 edit 放在 datetimepicker 的編輯框上 (edit1.top := datetimepicker1.top; edit1.left := datetimepicker1.left; width 自己設到满意的位置 ) 然後在 datetimepicker 的 closeup 事件及 edit 的 exit 事件分別寫 procedure TForm1.DateTimePicker1CloseUp(Sender: TObject); var astr : string; begin astr := tedit(datetimepicker1).Text; astr := inttostr(strtoint(copy(astr,1,4))-1911) copy(astr,5,6); edit1.Text := astr; end; procedure TForm1.Edit1Exit(Sender: TObject);
var astr : string; begin astr := edit1.text; datetimepicker1.Date := encodedate(strtoint(copy(astr,1,2)) 1911, strtoint(copy(astr,4,2)), strtoint(copy(astr,7,2))); datetimepicker1.Refresh; end; 當然要自己去保持 edit1 的格式為 yy/mm/dd, 非此格式者給 message . 參考一下 ===================引 用 andychen8888 文 章=================== 請教各位大大: DateTimePicker元件秀出的格式是例如2008/10/11也就是西元的格式,我要怎麼把它變成97/10/11就是民國的格式,請各位大大幫小弟解惑!感恩!
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2008-11-27 17:33:29, 註解 無‧
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
HI,您可以這樣寫
在程式一啟動時,例如 Form Create 時加上 SetLocaleInfo(GetSystemDefaultLCID, LOCALE_ICALENDARTYPE, '4'); // 將本機電腦格式設為 民國年 在程式結束時,如 Form Destory 加上 SetLocaleInfo(GetSystemDefaultLCID, LOCALE_ICALENDARTYPE, '1'); // 離開程式時設回原格式 這樣 DateTimePicker 就會變成民國年了!! Try it~! ===================引 用 andychen8888 文 章=================== 請教各位大大: DateTimePicker元件秀出的格式是例如2008/10/11也就是西元的格式,我要怎麼把它變成97/10/11就是民國的格式,請各位大大幫小弟解惑!感恩!
------
價值的展現,來自於你用哪一個角度來看待它!! |
andychen8888
一般會員 發表:14 回覆:25 積分:7 註冊:2007-02-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |