請問各位大大...    TDateTime       dtRoundCreateTime; dtRoundCreateTime = TDateTime("1900/1/1");    若系統日期時間格式設定為中華民國曆， 或是日期分隔符號設為”／” 則執行到上面那行ｃｏｄｅ就會出錯，    所以想請問各位大大... 有沒有什麼方法或api 是可以將系統日期時間設定為西曆且格式為”yyyy/MM/dd”？    感激不盡

use "SetSystemTime" Windows API, check out below url:

july：試試看下面的範例：
Unit1.h檔
private:        // User declarations
  AnsiString __fastcall GetsysShortDateFormat();
  AnsiString __fastcall GetsysLongDateFormat();
Unit1.cpp檔
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->Text=GetsysShortDateFormat();  // 目前系統短日期格式
  Edit2->Text=GetsysLongDateFormat();   // 目前系統長日期格式
}
//---------------------------------------------------------------------------
AnsiString __fastcall TForm1::GetsysShortDateFormat()
{
  // 目前系統短日期格式
  AnsiString sgs;
  sgs.SetLength(12);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE ,sgs.c_str(),12);
  return sgs;
}
AnsiString __fastcall TForm1::GetsysLongDateFormat()
{
  // 目前系統長日期格式
  AnsiString sgs;
  sgs.SetLength(12);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SLONGDATE ,sgs.c_str(),12);
  return sgs;
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  // 更改短日期格式
  AnsiString str;
  str = "yyyy/MM/dd"; // 要更改的格式
  if (SetLocaleInfoA(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, str.c_str()))
    ShowMessage("更改短日期格式成功");
  Edit1->Text=GetsysShortDateFormat();
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button3Click(TObject *Sender)
{
  // 更改長日期格式
  AnsiString str;
  str = "yyyy/MM/dd";  // 要更改的格式
  if (SetLocaleInfoA(LOCALE_SYSTEM_DEFAULT, LOCALE_SLONGDATE, str.c_str()))
    ShowMessage("更改長日期格式成功");
  Edit2->Text=GetsysLongDateFormat();
}
yyyy/MM/dd 也可以 yyyy-MM-dd 看妳高興。
請參考！

Andy Chang

------
Andy Chang

感謝上面二位大大... 已經可以了耶，謝謝囉～ 很感恩^^