这个流水号怎么做

这个流水号如何做？
流水号规则：
年 月 字母 编号
11 11 A  
11 11 B
  .
  .
  .
11 11 Z
11 11 A 1
11 11 B 1
  .
  .
  .
11 11 Z 1
11 11 A 2
11 11 B 2

  .
  .
  .


[解决办法]

Delphi(Pascal) code

  var    i,j,n:integer;begin  n:=10;  for j:=65 to 90 do    memo1.Lines.add((  IntToStr((YearOf(date)) mod 100))+IntToStr(MonthOf(date))+char(j)     );  for i:=1 to n do     for j:=65 to 90 do       memo1.Lines.add((  IntToStr((YearOf(date)) mod 100))+IntToStr(MonthOf(date))+char(j)+IntToStr(i)     );end;
[解决办法]
这个前面取日期，后面记录序号，比如序号是 monid，流水号就是xid

Delphi(Pascal) code
int xxx;string xid:=FormatDateTime("yymm",Now());xid:=xid+Chr(monid mod 26+65);xxx=monid div 26;if(xxx>0)xid:=xid+inttostr(xxx);