引言: 你可能要去控制台上查一下有關於 "年" 的設定

引言: hi, darkside, 請先確認在地區選項中的[一般]裡的[您的地區設定(位置)]是不是設定在[中文(台灣)], 這個會影響 eee 的年份出現狀況!!

引言: [地區選項]的 "位置" 是 "中文(台灣)" 沒錯。 [地區選項]的每個頁夾我都檢查好幾次了。

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(FormatDateTime('[e, yyyy]', now));
end;

引言: 發生的原因就會是在 [地區選項][日期]是設在民國, 但年份設為 2003 就會發生這個問題的!

引言: 可是我試過，不管控制台的地區選項裡面設定成 "中華民國曆"、"西曆(英文)"、還是 "西曆(中文)"，同樣的程式在我的電腦跑出來的結果都是一樣的，也就是三種月曆的設定，使用 FormatDateTime('eee', Now) 傳回的結果都是 '092'，並沒有不同喔。 p.s. 那幾台有問題的電腦的日期時間是正確的，並沒有多加 1911 的情況。

引言: ShowMessage(FormatDateTime('[e, yyyy]', now)); ShowMessage(FormatDateTime('[g e]', now));

引言: 我覺得 ddy 可能是對的，還是用自己寫的函數來轉換好了。 Anyway 我還是會把您提供的上面兩道敘述試看看，等試出來後，結果再貼上來。只是可能要等一下下，因為有問題的機器在客戶那兒。

  'eee , yyyy'   ==> '3 , 2003'
  'g , e'      ==> ' , 3'
  'ee/mm/dd'   ==> '03/07/08'
  'yyyy/mm/dd' ==> '2003/07/08'

procedure TForm1.Button2Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  FormatStr: string;
  Buffer: array[0..255] of Char;
  year, month, day: Word;
begin
  FormatStr:='gg';
  DecodeDate(Now, year, month, day);
  SystemTime.wYear:= year;
  SystemTime.wMonth:=month;
  SystemTime.wDay := day;
  GetDateFormat(GetThreadLocale, DATE_USE_ALT_CALENDAR, @SystemTime,
        PChar(FormatStr), Buffer, SizeOf(Buffer));
  ShowMessage(Buffer);
end;

(*
  將日期轉成民國年格式的字串      ADate         輸入的日期
  YearDigits    輸出的民國年要幾位數
  Separator     日期分隔字元
*)
function DateToRocStr(const ADate: TDateTime; YearDigits: Integer;
  Separator: string): string;
var
  wYear, wMonth, wDay: word;
  iYear: Integer;
  sYear, sMonth, sDay: string;
begin
  Assert((YearDigits > 0) and (YearDigits < 5));
  DecodeDate(ADate, wYear, wMonth, wDay);
  if wYear < 1900 then
  begin
    Result := StrRepeat(' ', YearDigits)   Separator   '  '   Separator   '  ';
    exit;
  end;      iYear  := wYear - 1911;
  sYear  := StrRight('00000'   IntToStr(iYear), YearDigits);
  if iYear < 1 then   // 民國前？
  begin
    Dec(iYear);
    sYear := StrRight('    '   IntToStr(iYear), YearDigits);
  end;      sMonth := Copy(IntToStr(wMonth 100), 2, 2);
  sDay   := Copy(IntToStr(wDay 100), 2, 2);
  Result := sYear   Separator   sMonth   Separator   sDay;
end;

function DateTimeToStr(DateTime: TDateTime): string;
begin
  Result:=ConvertToTwDate(ShortdateFormat,DateTime);
end;    function FormatDateTime(const sFormat: string; DateTime: TDateTime): string;
var yr:word;
begin
  Result:=ConvertToTwDate(sFormat,DateTime);
end;    function ConvertToTwDate(sFormat:string;DateTime:TDateTime):string;
var yr:word;
begin
//note:一般民國年均是 以年/月/日之方式, 不考慮年在後
  Result:=sysutils.FormatDateTime(sFormat,DateTime);  //先呼叫原function
  if pos('e/', sFormat) > 0 then begin
    Fetch(Result,'/');
    yr:=YearOf(DateTime)-1911;
    if pos('eee/',sformat) > 0 then
      Result:=format('%3.3d', [yr] ) '/' result
    else if pos('ee/', sFormat) > 0 then
      Result:=format('-',[yr]) '/' result
    else
      Result:=format('%d',[yr]) '/' result;
  end;
end;