Kom ihåg mig?

Luhn-algoritmen i VB script?

 
Ämnesverktyg Visningsalternativ
Oläst 2009-12-27, 14:03 #1
Z@ckes avatar
Z@cke Z@cke är inte uppkopplad
Nykomling
 
Reg.datum: May 2006
Inlägg: 32
Z@cke Z@cke är inte uppkopplad
Nykomling
Z@ckes avatar
 
Reg.datum: May 2006
Inlägg: 32
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... :-)
Z@cke är inte uppkopplad   Svara med citatSvara med citat
Oläst 2009-12-27, 14:08 #2
qson qson är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Sep 2006
Inlägg: 513
qson qson är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Sep 2006
Inlägg: 513
PHP-kod:
function luhn (cc)
   
dim sumi

   sum 
0
   
for len (cc) - 1 to 1 step -2
      sum 
sum + array (0246813579) (cint (mid (cci1)))
   
next
   
for len (ccto 1 step -2
      sum 
sum cint (mid (cci1))
   
next
   luhn 
= (sum mod 10 0)
end function 
Saxat från http://ornery-geeks.org/text/code/validationcomparison/

Google är din vän
qson är inte uppkopplad   Svara med citatSvara med citat
Oläst 2009-12-28, 20:55 #3
digiArt digiArt är inte uppkopplad
Har WN som tidsfördriv
 
Reg.datum: Jan 2004
Inlägg: 1 429
digiArt digiArt är inte uppkopplad
Har WN som tidsfördriv
 
Reg.datum: Jan 2004
Inlägg: 1 429
Citat:
Ursprungligen postat av Z@cke Visa inlägg
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?
digiArt är inte uppkopplad   Svara med citatSvara med citat
Svara


Aktiva användare som för närvarande tittar på det här ämnet: 1 (0 medlemmar och 1 gäster)
 
Ämnesverktyg
Visningsalternativ

Regler för att posta
Du får inte posta nya ämnen
Du får inte posta svar
Du får inte posta bifogade filer
Du får inte redigera dina inlägg

BB-kod är
Smilies är
[IMG]-kod är
HTML-kod är av

Forumhopp


Alla tider är GMT +2. Klockan är nu 03:48.

Programvara från: vBulletin® Version 3.8.2
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Svensk översättning av: Anders Pettersson
 
Copyright © 2017