• Home
 · 
• VB function enhancement
 · 
• Generate UUID

Generate UUID

A universally unique identifier (UUID). A UUID is a 128-bit number used to identify information in computer systems.

Rate Generate UUID

• 1
• 2
• 3
• 4
• 5

(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