Και για να το ξεκινήσουμε το νέο forum, να μια χρήσιμη ρουτίνα:
Έλεγχος ΑΦΜ
Visual Basic, Visual Basic For Applications
Δημιουργήστε ένα νέο Module και αντιγράψτε τον παρακάτω κώδικα:
ASP Script (VBScript)Κώδικας:Public Function CheckAFM(sAFM As String) As Boolean ' Validate an AFM number ' Pre: sAFM = string containing the AFM ' Post: True if sAFM is a valid AFM, False otherwise ' NOTE: This algorithm does NOT check if the AFM actually exists, only if it is a valid number! ' Usage Example: a=CheckAFM("012345678")->a=False ' Yiannis Papadopoulos <www.yiapap.com> 2004 Dim iSum As Integer Dim btRem As Byte Dim i As Byte If sAFM = "" Or Len(sAFM) <> 9 Then CheckAFM = False Exit Function End If iSum = 0 CheckAFM = False For i = 1 To Len(sAFM) - 1 If Asc(mID(sAFM, i, 1)) < 48 Or Asc(mID(sAFM, i, 1)) > 57 Then CheckAFM = False Exit Function End If iSum = iSum + Val(mID(sAFM, i, 1)) * (2 ^ (Len(sAFM) - i)) Next i If iSum = 0 Then CheckAFM = False Else btRem = iSum Mod 11 If Val(Right(sAFM, 1)) = btRem Or (btRem = 10 And Val(Right(sAFM, 1)) = 0) Then CheckAFM = True End If End Function
Αντιγράψτε τον παρακάτω κώδικα σε οποιοδήποτε σημείο της ASP σελίδας σας (συνίσταται η κορυφή)
Κώδικας:<%Function CheckAFM(sAFM) ' Validate an AFM number ' Pre: sAFM = string containing the AFM ' Post: True if sAFM is a valid AFM, False otherwise ' NOTE: This algorithm does NOT check if the AFM actually exists, only if it is a valid number! ' Usage Example: a=CheckAFM("012345678")->a=False ' Yiannis Papadopoulos <yiapap> 2004 Dim iSum Dim btRem Dim i on error resume next If sAFM = "" Then CheckAFM = False Exit Function End If iSum = 0 CheckAFM = False For i = 1 To Len(sAFM) - 1 If Asc(mID(sAFM, i, 1)) < 48 Or Asc(mID(sAFM, i, 1)) > 57 Then CheckAFM = False Exit Function End If iSum = iSum + mid(sAFM, i, 1) * (2 ^ (Len(sAFM) - i)) Next if iSum=0 then Exit Function else btRem = iSum Mod 11 If int(Right(sAFM, 1)) = btRem Or (btRem = 10 And int(Right(sAFM, 1)) = 0) Then CheckAFM = True else CheckAFM=False end if end if End Function%>
Εμφάνιση 1-1 από 1
-
28-04-05, 13:17 Ρουτίνα ελέγχου ΑΦΜ (VB/VBA,ASP/VBScript) #1
Τελευταία επεξεργασία από το μέλος yiapap : 28-04-05 στις 13:23.
Παρόμοια Θέματα
-
Μετατροπή ποσού (αριθμού) σε λέξεις (ολογράφως) VB/VBA ASP/VBScript
Από yiapap στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμούΜηνύματα: 4Τελευταίο Μήνυμα: 03-09-18, 21:49 -
Merge Cells στο Excel Χρησιμοποιόντας ASP - VBScript
Από n_agrios στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμούΜηνύματα: 1Τελευταίο Μήνυμα: 14-02-08, 15:23 -
'Εμπνευση για ρουτίνα στη C !
Από KLG στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμούΜηνύματα: 37Τελευταίο Μήνυμα: 19-06-06, 03:11
Bookmarks