StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
17409774
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-07-01T16:56:55.927
FavoriteCount
0
LastActivityDate
2013-07-01T16:56:55.927
LastEditDate
LastEditorUserId
0
OwnerUserId
2539825
ParentId
8377306
PostTypeId
2
Score
3
ViewCount
0
LastEditorDisplayName
text
Body
<p>What about this, has the formatting issue solved and carries out the "97 check":</p> <pre><code>Public Function VALIDATEIBAN(ByVal IBAN As String) As String ' Created by : Koen Rijnsent (www.castoro.nl) ' Inspired by : Chris Fannin (AbbydonKrafts) ' Inspired by : bonsvr (http://stackoverflow.com/users/872583/bonsvr) On Error GoTo CatchError Dim objRegExp As Object Dim IBANformat As Boolean Dim IBANNR As String Dim ReplaceChr As String Dim ReplaceBy As String 'Check format IBAN = UCase(IBAN) Set objRegExp = CreateObject("vbscript.regexp") objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "[a-zA-Z]{2}[0-9]{2}[a-zA-Z0-9]{4}[0-9]{7}([a-zA-Z0-9]?){0,16}" IBANformat = objRegExp.Test(IBAN) 'Validity of country code will not be checked! If IBANformat = False Then VALIDATEIBAN = "FORMAT NOT RECOGNIZED" Else 'Flip first 4 characters to the back IBANNR = Right(IBAN, Len(IBAN) - 4) & Left(IBAN, 4) 'Replace letters by the right numbers For Nr = 10 To 35 ReplaceChr = Chr(Nr + 55) ReplaceBy = Trim(Str(Nr)) IBANNR = Replace(IBANNR, ReplaceChr, ReplaceBy) Next Nr 'Loop through the IBAN, as it is too long to calculate at one go CurrPart = "" Answer = "" For CurrDigit = 1 To Len(IBANNR) CurrPart = CurrPart & Mid$(IBANNR, CurrDigit, 1) CurrNumber = CLng(CurrPart) 'If the number can be divided If 97 <= CurrNumber Then LeftOver = CurrNumber Mod 97 WorkValue = (CurrNumber - LeftOver) / 97 Answer = Answer & CStr(WorkValue) CurrPart = CStr(LeftOver) Else 'If no division occurred, add a trailing zero If Len(Answer) > 0 Then Answer = Answer & "0" 'Exception for the last number If CurrDigit = Len(IBANNR) Then LeftOver = CurrNumber Mod 97 Else End If Else End If End If Next If LeftOver = 1 Then VALIDATEIBAN = "IBAN OK" Else VALIDATEIBAN = "97 CHECK FAILED" End If End If Exit Function CatchError: VALIDATEIBAN = "ERROR: " & Err.Description MsgBox "Module: " & MODULE_NAME & " - VALIDATEIBAN function" & vbCrLf & vbCrLf _ & "Error#: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Function </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POValidate IBAN in Excel
  singulars
  PostTypePostTypeId
  PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USKoen Rijnsent
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.