數字拆分的問題(100分)

940312<br>950312<br>950111<br>..........<br>我想把這類的數值換成日期型的<br>2005-03-12＝940312<br>2006-03-12＝950312<br>我的想法是先把940312拆分成40312再在最前面+200,最後再在第4位值上加1<br>這個要怎麼寫。。<br>或有沒有更好的方法。這些數都放在一個SQL表裡。求批量轉換的方法。。。

真是的<br>好奇怪<br>－－先把940312拆分成40312再在最前面+200,最後再在第4位值上加1<br>为什么会存成这个样子，难道是为了加密？<br>算法不难，这就是楼猪想要的算法<br>var<br> &nbsp;s: string;<br> &nbsp;yy: string;<br> &nbsp;mm: string;<br> &nbsp;dd: string;<br> &nbsp;result: string;<br>begin<br> &nbsp;s:= '940312';<br> &nbsp;yy:= s[2];<br> &nbsp;yy:= '200' + IntToStr(StrToInt(yy) + 1);<br> &nbsp;mm:= Copy(s, 3, 2);<br> &nbsp;dd:= Copy(s, 5, 2);<br> &nbsp;result:= Format('%S-%S-%S', [yy, mm, dd]);<br> &nbsp;Form1.Caption:= result;<br>end;

while not Get.eof do<br> &nbsp;begin<br> &nbsp; &nbsp;Get.edit;<br> &nbsp; &nbsp;d:=Get.fieldbyname('實完工').asstring;<br> &nbsp; &nbsp;Get.fieldbyname('實完工').asstring:='200'+copy(d,2,1)+'-'+copy(d,3,2)+'-'+copy(d,5,2);<br><br> &nbsp; &nbsp;Get.post;<br> &nbsp; &nbsp;Get.next;<br> &nbsp;end;<br>謝謝<br>這樣做也可以。。

謝謝