小弟目前遇到一個問題， 在客戶的電腦方面，在控製台的日期格式會因部門不同設定如下， 財務部門設定的系統日期是 dd/mm/yyyy ， (因為特殊的需求)， 其他部門都是使用 yyyy/mm/dd 。 因此在財務部門的使用者程式如有下 strtodate 時， 會發生 2004/05/12 is not valid date， 而 Delphi 5.0 的 Datetostr or strtodate ， 不像 7.0 有 TFormatsetting 可以進行轉換的動作。 請問是否有其他 Function 可以做隨系統日期做轉換的動作? ---------------- 昂首千丘遠， 嘯傲風間， 堪尋敵手共論劍， 高處不甚寒! ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

skurama 你好: 不是有 function FormatDateTime(const Format: string; DateTime: TDateTime): string; begin DateTimeToString(Result, Format, DateTime); end; EX: ShowMessage(FormatDateTime('YYYY/MM/DD',Now));

------
======================
昏睡~
不昏睡~
不由昏睡~

嗯抱歉，沒有說明清楚， 因為特殊的原因，存到資料庫存的是 日期字串 "dd/mm/yyyy" -> "03/05/2004"， 唉~~~一下子也說不完為什麼要這樣做。 控制台的日期格式是 dd/mm/yyyy。 但程式會為把資料庫再轉換成 yyyy/mm/dd s_Date := 轉換年月日(qryOrd.fieldbyname('date').AsString); now() - strtodate(s_Date); <--- 這邊就出現問題了。 「'2004/05/03' is not valid date」 所以想問問看是否有相關的解決方法? 如何讓 strtodate(s_date) 不會錯。 如果沒有現呈的function ， 看來要自己手動判斷系統日期格式， 再做切割的動作了，感覺會有隱藏的危險。 ---------------- 昂首千丘遠， 嘯傲風間， 堪尋敵手共論劍， 高處不甚寒! ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

Hi skurama 您好: 試著調整ShortDateFormat試試;

procedure TForm1.Button1Click(Sender: TObject);
var TempStyle : String;
begin
   TempStyle := ShortDateFormat;
   try
      ShortDateFormat := 'yyyy/mm/dd';
      StrToDate('2004/05/03');
   finally
      ShortDateFormat := TempStyle;
   end;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

HI~~謝謝 Ko 兄與 Miles 兄的幫忙， 問題目前已經解決了。 感謝!! ---------------- 昂首千丘遠， 嘯傲風間， 堪尋敵手共論劍， 高處不甚寒! ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------