Formel Prüfsumme Überweisung o2

function getChecksum()
{
	src = document.getElementById("vzweck");
	msisdn = '0176'+ document.getElementById("vzweck").value;
	l = msisdn.length;
	if(l!=11 && l!=12)
	{
		// Fehlermeldung ausgeben
		wronChecksum();
	} else {
		var d1 = 0;
		var d2 = 0;
		var d3 = 0;
		var d4 = 0;
		var z = 0;
		var d4mul = 1;
		for(i=0; i<l; i++)
		{
			c = msisdn.charAt(i);
			if(c<'0' || c>'9')
			{
				// Fehlermeldung ausgeben
				wronChecksum();
				break;
			}
			value = c-'0';
			d1 ^= value;
			if(i%2==0) {
				z = 2*value;
				if(z>9) z -= 9;
			}
			else z = value;
			d2 += z;
			d3 += value;
			d4 += value*d4mul;
			if(++d4mul>9) d4mul = 1;
		}
		if(d1>9) d1 -= 6;
		d2 %= 10;
		d3 %= 10;
		d4 %= 10;

		chars = new Array(4);
		chars[0] = d1;
		chars[1] = d2;
		chars[2] = d3;
		chars[3] = d4;
		checksum = new String(chars.join(""));
		newText = '<strong>0176-'+ document.getElementById("vzweck").value +'-'+ checksum +'</strong>';
		
		//Tabellenzelle inputCell ausrichten wie in der klasse inputCell	
		document.getElementById("inputCell").style.verticalAlign = "middle";
		document.getElementById("inputCell").style.height = "54px";
		
		document.getElementById("vzweckcopy").value = '0176-'+ document.getElementById("vzweck").value +'-'+ checksum;
		// ggf. Fehlermeldung wieder ausblenden
		document.getElementById("vzweck").className = "input";
		document.getElementById("vzweck").value = "";		
		document.getElementById("vzerror").innerHTML = "";
		document.getElementById("vzerror").className = "hide";

		// für die erste Ausgabe
		document.getElementById("uevzweck").innerHTML = newText;		
		// für die Überweisung
		document.getElementById("uevzwecktd").innerHTML = "Ihre Überweisungsdaten sind nun vollständig.";
		
		// Berechnung erfolgreich
		javascriptopup_show();
	}
}

Option Explicit
Sub o2_berechnung()

Dim d1, d2, d3, d4, d4mul, lauf, wert, z As Byte
Dim c As String

Const nummer = "xxxxxxxxxxx"

d4mul = 1

For lauf = 0 To Len(nummer) - 1

  c = Mid(nummer, lauf + 1, 1)
  wert = Val(c)
  d1 = wert

  If lauf Mod 2 = 0 Then
    z = 2 * wert
    If z > 9 Then
      z = z - 9
    End If
  Else: z = wert
  End If
  d2 = d2 + z
  d3 = d3 + wert
  d4 = d4 + wert * d4mul
  d4mul = d4mul + 1
  If d4mul > 9 Then d4mul = 1
Next

If d1 > 9 Then
  d1 = d1 - 6
End If
d2 = d2 Mod 10
d3 = d3 Mod 10
d4 = d4 Mod 10
c = d1 & d2 & d3 & d4
Debug.Print (c)
End Sub