'======生成年月日开始的编号========
Dim Datekey
DateYear=Year(date)
DateMonth=Month(date)
if len(DateMonth)=1 then DateMonth="0"&DateMonth
DateDay=Day(date)
if len(DateDay)=1 then DateDay="0"&DateDay
Datekey=DateYear&DateMonth&DateDay
'Datekey=replace(Now(),"-","")
'Datekey=replace(Datekey,":","")
'Datekey=replace(Datekey," ","")
'===================================
Dim Datekey
DateYear=Year(date)
DateMonth=Month(date)
if len(DateMonth)=1 then DateMonth="0"&DateMonth
DateDay=Day(date)
if len(DateDay)=1 then DateDay="0"&DateDay
Datekey=DateYear&DateMonth&DateDay
'Datekey=replace(Now(),"-","")
'Datekey=replace(Datekey,":","")
'Datekey=replace(Datekey," ","")
'===================================