Generate UUID
A universally unique identifier (UUID). A UUID is a 128-bit number used to identify information in computer systems.
Rate Generate UUID
(3(3 Vote))
Function UUID()
Dim i, RndNum
For i = 0 to 7
RndNum = CLng(rnd * "&HFFFF")
'if i = 0 then RndNum = RndNum Xor (CLng(Date) And "&HFFFF")
If i = 3 Then RndNum = (RndNum And "&HFFF") Or "&H4000"
If i = 4 Then RndNum = (RndNum And "&H3FFF") Or "&H8000"
UUID = UUID + String(4 - Len(Hex(RndNum)), "0") + LCase(Hex(RndNum))
If i=1 Or i=2 Or i=3 Or i=4 Then UUID = UUID + "-"
Next
End Function
Generate UUID Comments
No comments yet — be the first to post one!
Post a Comment