产生20位长度的唯一标识ID

2006-6-27 8:36:05　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　

 

'函数名：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

>> 相关文章