Mã định danh duy nhất toàn cầu
Code VBA
Function GUID$(Optional lowercase As Boolean, Optional parens As Boolean)
Dim k&, h$
GUID = Space(36)
For k = 1 To Len(GUID)
Randomize
Select Case k
Case 9, 14, 19, 24: h = "-"
Case 15: h = "4"
Case 20: h = Hex(Rnd * 3 + 8)
Case Else: h = Hex(Rnd * 15)
End Select
Mid$(GUID, k, 1) = h
Next
If lowercase Then GUID = LCase$(GUID)
If parens Then GUID = "{" & GUID & "}"
End Function
GUID là viết tắt của từ gì ? Cụm từ được viết tắt bằng GUID là “Globally Unique Identifier”.