請教前輩們.... 我是使用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

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;