請問如何用程式控制國別中的日期格式為中華民國曆或西元曆? |
|
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的設定,當設定為1時為西元,4時為民國,當然在整個函式中還有其他的設定,敬請讀者自行參考help。 本電子報網址是http://home.pchome.com.tw/home/delphiwww~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |