[Z@cke]

Tack,
Den var i VBA, inte VB Script. Hade hoppats på att själv inte behöva böka med konvertering utan en färdig lösning... :-)

[qson]

PHP-kod:

function luhn (cc)
   dim sum, i

   sum = 0
   for i = len (cc) - 1 to 1 step -2
      sum = sum + array (0, 2, 4, 6, 8, 1, 3, 5, 7, 9) (cint (mid (cc, i, 1)))
   next
   for i = len (cc) to 1 step -2
      sum = sum + cint (mid (cc, i, 1))
   next
   luhn = (sum mod 10 = 0)
end function 


Saxat från http://ornery-geeks.org/text/code/validationcomparison/

Google är din vän

[digiArt]

Ursprungligen postat av Z@cke

Tack,
Den var i VBA, inte VB Script. Hade hoppats på att själv inte behöva böka med konvertering utan en färdig lösning... :-)

Ähum, vad är skillnaden? Jag vet skillnaden på språken, men just i det där såg jag inget unikt för VBA, bör funka i VBScript.

Har du testkört?