請問如何用程式控制國別中的日期格式為中華民國曆或西元曆? |
|
|
|
scottliou
版主   發表：16 回覆：56 積分：47 註冊：2002-03-14 發送簡訊給我 |
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 請問如何用程式控制國別中的日期格式為中華民國曆或西元曆? 2002/03/13 上午 1.... 或為 91/03/13 ~~~~~~~~~~~~~~~~ 有夢想最美......還好這一題站長會,要不然就快被網友全數考倒了,網友救救站長, 幫忙回答那些棘手的問題! 回到主題: ShortDateFormat := 'eee/mm/dd'; // 民國 ShortDateFormat := 'yyyy/mm/dd'; // 西元 簡單吧!ShortDateFormat為公用變數! 在程式一開始執行就設定好! ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
scottliou
版主 發表：16 回覆：56 積分：47 註冊：2002-03-14 發送簡訊給我 |
看到站長如此辛苦在公幹之餘還必須要替大家解決問題真是感動
我自己本身由Clipper至Delphi撰寫程式也邁入第13個年頭，自己
重未有過如此熱忱幫忙大家，無意之間看到這麼好的網站還有這麼
好的站長，如果有時間我一定上來幫助站長，只是我常要去大陸，
不管如何有時間一定上來，能力所及一定赴湯蹈火，只怕能力不足
大家不要嫌棄.......感謝勞苦功高的站長大大大大大大大大大大大
大大大大大大大大...................... ~~~~~~~~~~~~~~~~
有夢想最美......
------
~~~~~~~~~~~~~~~~ 有夢想最美...... |
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 看到站長如此辛苦在公幹之餘還必須要替大家解決問題真是感動 我自己本身由Clipper至Delphi撰寫程式也邁入第13個年頭，自己 重未有過如此熱忱幫忙大家，無意之間看到這麼好的網站還有這麼 好的站長，如果有時間我一定上來幫助站長，只是我常要去大陸， 不管如何有時間一定上來，能力所及一定赴湯蹈火，只怕能力不足 大家不要嫌棄.......感謝勞苦功高的站長大大大大大大大大大大大 大大大大大大大大...................... ~~~~~~~~~~~~~~~~ 有夢想最美......真是太感動了,謝謝您對本站的支持! 站長雖然寫程式有18年,從Apple-II LISA/BASIC/8088/MASM/TC/TP/Delphi... 但我深深覺得,軟體設計師'不進則猛退',新的知識永遠學不完, 程式寫多少年都沒有用,最重要的是要有一顆'求知若渴'的心! 成立本網站是希望帶動Delphi的設計師們,大家拿出'教學相長'的心情,來盡可能幫助別人,因為自己當初也是問題一堆! 自開站2002/3/10以來站長其實也未真正回答或解決多少問題,反而自己學得更多! Open our mind to make knowledge together! ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
s5633
一般會員  發表：22 回覆：35 積分：21 註冊：2002-04-15 發送簡訊給我 |
引言:請問TDatetimePicker元件要如何才能顯示為民國年?...3Q引言: 請問如何用程式控制國別中的日期格式為中華民國曆或西元曆? 2002/03/13 上午 1.... 或為 91/03/13 ~~~~~~~~~~~~~~~~ 有夢想最美......還好這一題站長會,要不然就快被網友全數考倒了,網友救救站長, 幫忙回答那些棘手的問題! 回到主題: ShortDateFormat := 'eee/mm/dd'; // 民國 ShortDateFormat := 'yyyy/mm/dd'; // 西元 簡單吧!ShortDateFormat為公用變數! 在程式一開始執行就設定好! ～～～Delphi K.Top討論區站長～～～ |
|
delphiwww
資深會員 發表：145 回覆：363 積分：368 註冊：2002-03-13 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 參考一下以下的網頁 http://home.pchome.com.tw/home/delphiwww/a38.htm謝謝您,站長轉貼一下: Delphi電子報38期—日期轉換(西元與民國) 在繁體中文，依照個人電腦使用的不同，可以顯示民國或西元，當需要利用程式來控制時，就需要透過WIN API來設定，程式如下： procedure TForm1.Button1Click(Sender: TObject); var DefaultLCID: LCID; CS:string; begin DefaultLCID := GetThreadLocale; SetLocaleInfo(DefaultLCID, LOCALE_ICALENDARTYPE, '1'); cs:='intl'; SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Integer(CS)); edit1.text:=datetostr(date); end; procedure TForm1.Button2Click(Sender: TObject); var DefaultLCID: LCID; CS:string; begin DefaultLCID := GetThreadLocale; SetLocaleInfo(DefaultLCID, LOCALE_ICALENDARTYPE, '4'); cs:='intl'; SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Integer(CS)); edit1.text:=datetostr(date); end; 其中最大的差別在setlocaleinfo函式中第三個參數lpLCData的設定，當設定為１時為西元，４時為民國，當然在整個函式中還有其他的設定，敬請讀者自行參考help。 本電子報網址是http://home.pchome.com.tw/home/delphiwww～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
發表時間：2002-03-14 14:21:35
IP:61.70.xxx.xxx 未訂閱
系統時間：2024-04-25 12:37:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |