Εμφάνιση 1-1 από 1
  1. #1
    Εγγραφή
    20-03-2003
    Περιοχή
    Στη μόνη πόλη που γράφεται με 2 'σ' και προφέρεται με 2 'λ'
    Ηλικία
    53
    Μηνύματα
    21.422
    Downloads
    25
    Uploads
    2
    Τύπος
    ADSL2+
    Ταχύτητα
    11000/1023
    ISP
    ΟΤΕ Conn-x
    DSLAM
    ΟΤΕ - ΡΟΣΤΑΝ
    Router
    Netgear DGN2000
    SNR / Attn
    4(dB) / 30.5(dB)
    Path Level
    Fastpath
    Και για να το ξεκινήσουμε το νέο forum, να μια χρήσιμη ρουτίνα:

    Έλεγχος ΑΦΜ
    Visual Basic, Visual Basic For Applications

    Δημιουργήστε ένα νέο Module και αντιγράψτε τον παρακάτω κώδικα:
    Κώδικας:
        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 Script (VBScript)

    Αντιγράψτε τον παρακάτω κώδικα σε οποιοδήποτε σημείο της 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%>
    Τελευταία επεξεργασία από το μέλος yiapap : 28-04-05 στις 13:23.

Παρόμοια Θέματα

  1. Μετατροπή ποσού (αριθμού) σε λέξεις (ολογράφως) VB/VBA ASP/VBScript
    Από yiapap στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 4
    Τελευταίο Μήνυμα: 03-09-18, 21:49
  2. Merge Cells στο Excel Χρησιμοποιόντας ASP - VBScript
    Από n_agrios στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 1
    Τελευταίο Μήνυμα: 14-02-08, 15:23
  3. 'Εμπνευση για ρουτίνα στη C !
    Από KLG στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 37
    Τελευταίο Μήνυμα: 19-06-06, 03:11

Tags για αυτό το Θέμα

Bookmarks

Bookmarks

Δικαιώματα - Επιλογές

  • Δεν μπορείτε να δημοσιεύσετε νέα θέματα
  • Δεν μπορείτε να δημοσιεύσετε νέα μηνύματα
  • Δεν μπορείτε να αναρτήσετε συνημμένα
  • Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας
  •  
  • Τα BB code είναι σε λειτουργία
  • Τα Smilies είναι σε λειτουργία
  • Το [IMG] είναι σε λειτουργία
  • Το [VIDEO] είναι σε λειτουργία
  • Το HTML είναι εκτός λειτουργίας