我用d7,想使用 tranbankdate:=strtodate(Trdate,'EEMMDD'); 直接轉換所要的日期格式,可是它會show以下的錯誤,不知如何解決? There is no overloaded version of 'StrToDate' that can be called with these arguments 發表人 - shinhrn 於 2004/05/14 10:35:19

因為strtodate所需要傳入的參數只需要一個字串 date本身就是日期型態囉,再轉一次日期型態似乎... 如果是取回字串 可以使用 formatdatetime('eemmdd',date);

引言: 因為strtodate所需要傳入的參數只需要一個字串 date本身就是日期型態囉,再轉一次日期型態似乎... 如果是取回字串 可以使用 formatdatetime('eemmdd',date);

真是不好意思我舉錯例子了抱歉, 我想要的功能是類似以下的功能

function StrToDate(const S: string;
const FormatSettings: TFormatSettings): TDateTime; overload;
var sy:string;
begin
    sy:=copy(S,1,pos('/',S)-1);
    if length(sy) <=3 then //假設小於等於三位數為民國年
    begin 
       sy:=inttostr(strtoint(sy) 1911);
       //轉integer後 1911再轉為字串
       S:=sy copy(S,pos('/'S),length(S));
    end;  
    result:=strtodate(S);
end;    

直覺反應這樣寫 似乎不需要第二個參數 建議funtion name與系統的區隔開來比較好

引言:

function StrToDate(const S: string;
const FormatSettings: TFormatSettings): TDateTime; overload;
var sy:string;
begin
    sy:=copy(S,1,pos('/',S)-1);
    if length(sy) <=3 then //假設小於等於三位數為民國年
    begin 
       sy:=inttostr(strtoint(sy) 1911);
       //轉integer後 1911再轉為字串
       S:=sy copy(S,pos('/'S),length(S));
    end;  
    result:=strtodate(S);
end;    

直覺反應這樣寫 似乎不需要第二個參數 建議funtion name與系統的區隔開來比較好

對不起又是我沒說清楚 function StrToDate(const S: string; const FormatSettings: TFormatSettings): TDateTime; begin if not TryStrToDate(S, Result, FormatSettings) then ConvertErrorFmt(@SInvalidDate, [S]); end; 這是syutils裡就有提供的function 我是不會用而且不知道它是否可以達到我的需求ㄋ...?

如果要達成如您所說的可以輸入民國年或是西元年 那麼 就可能需要自行寫code來處理囉

引言: 如果要達成如您所說的可以輸入民國年或是西元年 那麼 就可能需要自行寫code來處理囉

喔,這樣喔, 因為我是用 ShortDateFormat:='eeee/mm/dd'; ShortDateFormat:='yyyy/mm/dd'; 來做date切換的 DATEDBASE 的date fields它都可以自動轉換 可是發現StrToDate(const S: string): TDateTime;並不受ShortDateFormat影響 我還以為 function StrToDate(const S: string; const FormatSettings: TFormatSettings): TDateTime; overload; 可以達到與 FormatDateTime 相對的功能 將str中的直接轉換成系統中的tdate勒 發表人 - shinhrn 於 2004/05/14 12:06:24

試試看下面程式,

 
procedure TForm1.Button1Click(Sender: TObject);
var
  ADate: String;
  ADate2: TDate;
  AFormat, AFormat2: TFormatSettings;
begin
  AFormat.ShortDateFormat := 'ee/mm/dd';
  AFormat.DateSeparator := '/';
  ADate := '94/05/15';
  ADate2 := StrToDate( ADate, AFormat );
  AFormat2.ShortDateFormat := 'yyyy/mm/dd';
  AFormat2.DateSeparator := '/';
  ShowMessage( DateToStr( StrToDate( ADate, AFormat ), AFormat2 ) );
end;

引言: 試試看下面程式,

 
procedure TForm1.Button1Click(Sender: TObject);
var
  ADate: String;
  ADate2: TDate;
  AFormat, AFormat2: TFormatSettings;
begin
  AFormat.ShortDateFormat := 'ee/mm/dd';
  AFormat.DateSeparator := '/';
  ADate := '94/05/15';
  ADate2 := StrToDate( ADate, AFormat );
  AFormat2.ShortDateFormat := 'yyyy/mm/dd';
  AFormat2.DateSeparator := '/';
  ShowMessage( DateToStr( StrToDate( ADate, AFormat ), AFormat2 ) );
end;

正確,謝謝你...