Tag: iban

使用InStr和Left来从string中返回正确的文本

我正在玩一些IBAN / SWIFT代码，我在Excel VBA中有一个string ，但是我想从string中selectIBAN号码。 样品： DK4520005010201483 IBAN NDEADKKKXXX NL24ABNA0424079763 iban ABNANL2A DE56300700100303808000 IBAN DEUTDEDD 上面的string保存在stringiban 码： Dim cutDownStr as String, iban as string cutDownStr = iban fooStr = Left(cutDownStr, (Len(cutDownStr) – InStr(cutDownStr, " "))) MsgBox fooStr

validation比利时IBANS的代码

有人可以帮助我在Visual Basic for Applications（Excel）中创build函数来validation比利时IBAN号码吗？ 所以我可以在Excel中添加一个数字列表，并将它们validation为TRUE或FALSE。 比利时IBAN号码示例： BE43 1325 3117 7701 在寻求帮助之前，我尝试了几件事情。 我试图调整我在本网站上的早期主题中find的代码，即： Public Function VALIDATEIBAN(ByVal IBAN As string) As Boolean On Error GoTo Catch Dim objRegExp As Object Dim blnIsValidIBAN As Boolean Set objRegExp = CreateObject("vbscript.regexp") objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "^[a-zA-Z]{2}\d{2}[ ]\d{4}[ ]\d{4}[ ]\d{4}[ ]\d{4}[ ]\d{4}|CZ\d{22}$" blnIsValidIBAN = objRegExp.Test(IBAN) VALIDATEIBAN = […]