'函数名：MakeTheID

'作 用：产生20位长度的唯一标识ID

'参 数： ----

'返回值：返回20位长度的唯一标识ID

'示 例：MakeTheID()

'**************************************************

Public Function MakeTheID()

DIM datestr,mytime,myyear,mymonth,myday,i

myyear = cstr(year(date()))

mymonth = cstr(month(date()))

myday = cstr(day(date()))

mymonth = lpad(mymonth,0,2)

MakeTheID = myyear & "_" & mymonth & "_" & myday & "_"

datestr=cstr(now())

i = instr(datestr," ")

mytime = right(datestr,len(datestr)-i)

mytime = replace(mytime,":","_")

randomize

i = Int((9999 - 1000 + 1) * Rnd + 1000)

MakeTheID = MakeTheID & mytime & "_" & i

MakeTheID = replace(MakeTheID,"_","")

end function