procedure TForm1.Button1Click(Sender: TObject);
var
   NumberString,DateString:AnsiString;
   i:integer;
begin
     for i := 1 to 10 do
     begin
      DateString := FormatDateTime('mmdd', Date);
      NumberString := Format('%s%.3d',[DateString,i]);
      ShowMessage(NumberString);
     end;
end;

引言: 大大的程式我已理解。现在有一点，就是如果数据表中已有数据，比如0917001，那么我如何取到这个001后再加上1。这个001三位数要证在0917这一天是唯一的，并且是递增的。在0918这一天中第一个票据号又要是001

嗯～認同malanlk兄的作法，按ntjrr兄的需求，是要將編號欄位分成日期與流水號，如此比較好檢索以及處理新增的流水號編號。
'Select 日期,流水號 From XTable Where 日期 ='   '0918'   ' Order By 流水號 ASC'
或者
'Select MAX(流水號) From XTable Where 日期 ='   '0918'    '''';

引言: 不會重號吧, Where 有日期條件, 如果 CMOS 錯亂只是取到非預期日期的流水號而已吧... 之前有討論過避免重號的方式, 之前的處理方式再加一個日期欄位及條件就可以了, 不然你取個 CMOS 錯亂重號的例子給我看... >< face="Verdana, Arial, Helvetica"> 前辈的这段分析相当精辟，我也试了一下，确实不会取到重号，我这一次所讲的和您上面所指的那篇有区别，我现在用的方法不是新建一个数据表来从中取值的，而是直接在本资料表中取值的，也不是在写入表中时取值，而是窗口跳出后就取值。我后来在本资料表中用了三个字段，一是日期字段，二是流水号，三才是我要的正式编号。当日期等于当前日期时取流水号加1，当不等于时（也就是取不到值时）那么赋于流水号的值为1。