利用当前日期生成唯一ID值

'{\9]7[@9F0测试的时候经常会遇见有些值需要输入唯一值的情况，其实可以利用当前日期解决这个问题，生成一个唯一的ID值

hl$Hb e!S:KXz0Function GetOnlyId()51Testing软件测试网)J-y!Y,g&~A!]
 '函数功能：利用日期和时间生成一个唯一的13位ID值51Testing软件测试网.g8QS9H4{W-~Q
 '参数：无51Testing软件测试网:}[
F5F#s5l
 '返回值：利用当前日期和时间生成的13位唯一ID51Testing软件测试网(Z@'?NE"s
 Dim DateNow51Testing软件测试网#hNbrEBv4`
 Dim TimeNow
(z2d,LhU@0 Dim ArrDate51Testing软件测试网S4pl8A"]1[J%n+J2Lg
 Dim ArrTime
jKm9i}X.G0 Dim DateStr
(@$u(MqF0 Dim TimeStr
Pf9iaZ r0 Dim OnlyId
xl[C-T#[#r0 51Testing软件测试网f`"f5i v
 DateNow = Date
0_0Ql6zNU+pNAw0 TimeNow = Time
.Wc7JX&c];{&W0 DateStr = ""
Ef'Ny0e2A0 TimeStr = ""51Testing软件测试网4ch.DZI` ZI
 51Testing软件测试网sBS+c4X&H#d3pcW3X,R9Rl}
 '处理Date值

gK"mk(^j0 ArrDate = Split(DateNow , "-")
VIuX*{_0 For i = LBound(ArrDate) To UBound(ArrDate)
&qmh!D9r?Zl0  DateStr = DateStr & ArrDate(i) 
T(_c9T*wM0 Next51Testing软件测试网.`M(jt4^2QV
 51Testing软件测试网;cW~2o ]
 '处理Time值
9J:d6n` A6j0 ArrTime = Split(TimeNow , ":")
QZ4NxL+Q^*t0 For j = LBound(ArrTime) To UBound(ArrTime)51Testing软件测试网L.@L,nv~ ?u
  TimeStr = TimeStr & ArrTime(j)51Testing软件测试网KK1H!b.q
 Next51Testing软件测试网*A.r+\|3Hzks
 
@*\.xs3\8g\)[0 '生成唯一ID
g_:t*d,Z0 OnlyId = DateStr & TimeStr
e^^TqE-j0 GetOnlyId = OnlyId
)Rp y&K~bghfy0End Function