Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 6, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

A Smart ID Generator

I wrote a unique error-proof number generator that greatly simplifies the checking of clients' account numbers or other IDs used by your application. I use it in conjunction with the CheckForValid functions. For example, the CheckForValid returns True for number "203931." The CheckFor Valid returns False for number "209331."
Function CheckForValid(Num As Long) _
        As Boolean
' Check for valid number
Result = Num Mod 13   
If Result <> 0 Then
        CheckForValid = False 
        ' if false then the number is wrong
        CheckForValid = True
        'if true the number is OK
End If
End Function

Function Generate(Num As Long) As Long
'Generates the successor of a valid 
If CheckForValid(Num) Then
        Generate = Num + 13
        'if valid Generate
        Generate = -1
        ' Otherwise return -1   
End If
End Function
Carlos Santos
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date