Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
Else
        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 
'number
If CheckForValid(Num) Then
        Generate = Num + 13
        'if valid Generate
Else
        Generate = -1
        ' Otherwise return -1   
End If
End Function
Carlos Santos
 
Comment and Contribute

 

 

 

 

 


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

 

 

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