Per utilizzarlo basta copiare ed incollare sul proprio programma.
<cfscript>
/*
Author: Enrico Zogno
E-mail: enrizo@libero.it
parametri: p … la partita iva da controllare
Var, out: true o false se la partita iva è valida o meno
*/
function piva (p) {
result=FALSE;
if ((len(p) NEQ 11) OR NOT isnumeric(p))
break;
else {
tot=0;
i=1;
while (i LT 11) {
tot=tot+ mid(p,i,1);
i=i+2;
}
i=2;
while (i LT 11) {
x=mid(p,i,1)*2;
tot=tot+(x/10)+(x mod 10);
i=i+2;
}
x=tot;
if ((x mod 10 EQ 0) AND (mid(p,11,1) eq o))
result=TRUE;
else if (10-(x mod 10) EQ mid(p,11,1))
result=TRUE;
else
result=FALSE;
}
}
</cfscript>
<!— Come si usa: –>
<cfif #piva("01167240298")#>
OK
<cfelse>
NO
</cfif>
]]>