請教一下 以下的語法 是哪裡有問題呢 當我執行到 date3:=strtoint(datetostr(date2-date1)); 就會出現 Project xx.exe raised exception class EConverError with message "1900/1/23' is not a valid integer value'. Process stopped.Use Step or Run to continue. 而我的資料庫內容為 Sdate 2002/4/9 Fdate 2002/5/3 請教一下 我計算日期差的方式 是不是有錯誤呢 該段程式碼如下 DM.Query1.close; DM.Query1.SQL.Clear; try DM.Query1.SQL.ADD('select * from first where title =''施工測量放樣'''); DM.Query1.Prepare; DM.Query1.Open; if not DM.Query1.FieldByName('SDate').IsNull then Date1 := StrToDate(DM.Query1.FieldByName('SDate').AsString); showmessage(datetostr(date1)); if not DM.Query1.FieldByName('FDate').IsNull then date2 := StrToDate(DM.Query1.FieldByName('FDate').AsString); date3:=strtoint(datetostr(date2-date1)); showmessage(inttostr(date3)); except on E: Exception do begin ShowMessage(E.Message); end; end; Project xx.exe raised exception class EConverError with message "1900/1/23' is not a valid integer value'. Process stopped.Use Step or Run to continue.

日期型態是Double 型態，故轉換成Double 後可運算 再用trunc取整數，即可求得日期運算結果

var
    d1:TDate;
    d2:TDate;
begin
    d1:=StrToDate('2002/03/20');
    d2:=StrToDate('2002/04/24');
    self.Caption :=IntToStr(trunc(Double(d2)-Double(d1)));
end;

噓~~~~~~沉思中…

不好意思 請問上例中 DM.Query1.Prepare; 有何用途 ?

引言: 不好意思 請問上例中 DM.Query1.Prepare; 有何用途 ?

您好﹗ 哇﹐翻出了很有歷史的文章喔﹐是在用功學習嗎﹖ ><>================================= < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=19409143&CC=434077"> 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟