謝謝,讓大家幫忙了,我想我將DATA 與錯誤訊息POST上去,並將問題整理一下,請大家再幫忙一下: Q1:TABLE中有AANOW的數值欄位,我想 2 後轉成文字型態存並且存到 BBNOW欄位中 Q2:INDAY為文字欄位(原先是用來存放民國年月日),我需要年加上1911後轉成日期型態並存到 INSTDAY_ 中 Q3:若某些RECORD 的 INDAY中的日期就不合法,我想給它一個DEFAUL值 EX: 90.01.01我該如何預防 THAT'S ALL . THANK'S

附加檔案：24210_AA.zip

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
  yr,mn,d:integer;
  dt:TDateTime;
  I:INTEGER;
begin
  with Query1,sql do begin
    close;
    clear;
    add('select * from SS');
    open;
    i:=0;
    while not eof do begin
      inc(i);
      edit1.text:=inttostr(i);
      edit1.refresh;
      s:=fieldbyname('INDAY').asstring;
      if (Trim(s)='') or (pos(s[1],'123456789')=0) then
        dt:=StrToDate('2001/1/1')
      else begin
        yr:=strtoint(copy(s,1,2)) 1911;
        mn:=StrToint(copy(s,4,2));
        d:=StrToint(copy(s,7,2));
        try
          dt:=EnCodeDate(yr,mn,d);
        except
          dt:=StrToDate('2001/1/1')
        end;
      end;
      edit;
      fieldbyname('INDAY_').asdateTime:=dt;
      try
        fieldbyname('BBNOW').asinteger:=StrTOint(fieldbyname('AANOW').asstring) 2;
      except
        fieldbyname('BBNOW').asinteger:=0;
      end;
      post;
      next;
    END;
  end;
end;

再請教ccchen兄: 若不考慮日期錯誤的問題,可有一行SQL語法就可轉換資料的方法

引言: 再請教ccchen兄: 若不考慮日期錯誤的問題,可有一行SQL語法就可轉換資料的方法

一個Convert就可以了, 不過你的日期格式不合, 且還有年的換算問題

CCCHEN兄: 可否將該語法POST上來讓我了解一下THANK'S

引言: CCCHEN兄: 可否將該語法POST上來讓我了解一下THANK'S

前一個主題不是討論很多了嗎, 如果你的日期格式正確, 可以直接 update tablename set datefiled=stringfield 會自動convert