時間格式.... |
|
TOMMY
一般會員 發表:16 回覆:32 積分:9 註冊:2002-03-15 發送簡訊給我 |
請教前輩們....
我是使用WIN 2000系統,我要取系統的時間
在TIMER元件內~
DateTime := Time;
str := TimeToStr(DateTime);
label1.Caption := str; 抓到的時間為 '下午 12:40:35'
因為我要將時分秒每一個位元分開處理及顯示
所以~
label2.caption:=label1.caption[6];
label3.caption:=label1.caption[7];
......
.......
但是一樣的程式在98上就不行了
98抓到的時間為'PM 12:40:35'
label1.caption[6] 無法對應到
所以必須改為 label1.caption[4]
可是遇到別的系統 又有AM/PM在時間後面的
還有上下午區分 24小時制的... 在眾多的顯示時間中
我該怎麼讓時間的格式一致?? TOMMY
------
TOMMY |
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
var YYYY, MM, DD, hh, nn, ss, ms: WORD; begin DecodeDate(Now, YYYY, MM, DD); DecodeTime(Now, hh, nn, ss, ms); ShowMessage('現在是: ' IntToStr(YYYY) '年'); ShowMessage('現在是: ' IntToStr(MM) '月'); ShowMessage('現在是: ' IntToStr(DD) '日'); ShowMessage('現在是: ' IntToStr(hh) '時'); ShowMessage('現在是: ' IntToStr(nn) '分'); ShowMessage('現在是: ' IntToStr(ss) '秒'); ShowMessage('現在是: ' IntToStr(ms) '毫秒'); end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |