Validate International Securities Identification Number: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) m (→{{header|VBScript}}: A correction) |
PatGarrett (talk | contribs) m (→{{header|VBScript}}: A correction) |
||
Line 2,520: | Line 2,520: | ||
if p<>0 then c=c&(p-1) else err=1 |
if p<>0 then c=c&(p-1) else err=1 |
||
next 'i |
next 'i |
||
'msgbox "c= "& c |
|||
for i=1 to 2 |
for i=1 to 2 |
||
if instr("ABCDEFGHIJKLMNOPQRSTUVWXYZ",mid(cc,i,1))=0 then err=1 |
if instr("ABCDEFGHIJKLMNOPQRSTUVWXYZ",mid(cc,i,1))=0 then err=1 |