Validate International Securities Identification Number: Difference between revisions

m
m (→‎{{header|VBScript}}: A correction)
m (→‎{{header|VBScript}}: A correction)
Line 2,520:
if p<>0 then c=c&(p-1) else err=1
next 'i
'msgbox "c= "& c
for i=1 to 2
if instr("ABCDEFGHIJKLMNOPQRSTUVWXYZ",mid(cc,i,1))=0 then err=1
1,392

edits