这个可在OnChange事件里面自己判断

还要用到正则表达式吗?

不需要。  
  多找几个字符串函数就行了。  
  你用什么？delphi？

if   length(edit1.text)<=6   then  
      begin  
          if   not   (copy(Edit1.text,0,1)   in   ['1'..'4'])   then  
                begin  
                      application.messageboxs(pchar('fuck   you'),pchar('123'),0);  
                      exit;  
                end;  
              edit1.text:=   edit1.text+copy(formatdatetime(yyyyMMdd,now()),3,length(formatdatetime(yyyyMMdd,now())));  
      end;

DELPHI

给分   给分

我也用到了，是在OnChange事件里判断的

给的这个例子只判断了第一位，后面判断日期的你可以自己参考着写，就是用一些字符串的操作函数。

XX