Quersumme im hexadezimalsystem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Function QS_Hex(xHex As String) As Variant Dim i1 As Integer, i2 As Integer, i3 As Integer Dim s As String i3 = 0 i2 = Len(xHex) QS_Hex = "" For i1 = 1 To i2 s = UCase(Mid(xHex, i1, 1)) Select Case s Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9" i3 = i3 + CInt(s) Case "A", "B", "C", "D", "E", "F" 'Asc("A") = 65 i3 = i3 + (Asc(s) - 55) Case Else QS_Hex = "falscher Übergabestring - kein gültiger (Hex)-Zahlenwert!" Exit For End Select Next i1 If QS_Hex = "" Then QS_Hex = i3 End If End Function Sub test_QS() MsgBox QS_Hex("73A") End Sub

Function QS_Hex(xHex As String) As Variant Dim i1 As Integer, i2 As Integer, i3 As Integer Dim s As String i3 = 0 i2 = Len(xHex) QS_Hex = "" For i1 = 1 To i2 s = UCase(Mid(xHex, i1, 1)) Select Case s Case "0" To "9" i3 = i3 + CInt(s) Case "A" To "F" 'Asc("A") = 65 i3 = i3 + (Asc(s) - 55) Case Else QS_Hex = "falscher Übergabestring - kein gültiger (Hex)-Zahlenwert!" Exit For End Select Next i1 If QS_Hex = "" Then QS_Hex = i3 End If End Functionß von Luschi aus klein-Paris >

…Alifa… ;-]
Hier mal der entsprd Auszug aus der HilfeDatei des zugehörigen AddIns FXsubset von LSr:CyWorXxl:
Argumente: benötigt ; optional=Default für Vorgaben z.T. [engl] Synonyme möglich
DiSum ( ZahlText; WichtBasis=1; QStep=1; Iterat=0; ignoZ=leer )
Ergebnis: Zahl, Text bzw Fehlerwert
Quersumme, (nicht) alternierend, einer Zahl (auch hexadezimal) mit Wichtungsmöglichkeit
In Arg2 kann eine Wichtungsbasis (radi-/potenziert mit Position von rechts - 0/1) angegeben werden.

Arg1 → ZahlText: Zahl(entext), auch hexadezimal [AF]
Arg2 → WichtBasis: Wichtungspotenzbasis X [=X^0n-1, /rwX=X^1/1n] bzw WFolge x [{VZRWHx, hwrzv}x], hexadez.[#hHxX u/o xX=AF]; -X alternierend
Arg3 → QStep: Schrittweite s (s-Quersumme = Q. zur Basis 10^s); Default s=1 (stellenweise von rechts); s<0=s-Teil-Qn
Arg4 → Iterat: Wahr = iterativ bis zur Stelligkeit lt Arg3 bzw < Max(10, Arg2), wenn Arg2 Einzelwert ist
Arg5 → ignoZ: Zeichenfolge mit in Arg1 zu ignorierenden Zeichen; fehlt = kein Zeichen wird entfernt

Bsp1: a) 6 =DiSum(123),      c) 83 =DiSum(123;-10),   e) 38,47899001 =DiSum(123;"/10"),
          b) 2 =DiSum(123;-1), d) 83 =DiSum(123;8),      f) 4,431493925 =DiSum(123;"-/2"),
          g) 25,17 =--DiSum("10 0101,0001 0111";2;-4;" ")
Bsp2: a) 30 =DiSum("FF";"#"), b) 255 =DiSum("FF";"#16"), c) 3615 =DiSum("FFF";"-h16"), d) 227,4662121 =DiSum("10F";"/F"),
          e) A1:C1 enthalte 19 19 19 , 20 , 2 (A1-Format: ##" "##" "#0) → 7999 =DiSum(A1;B1;C1)
Bsp3: a) 14 =DiSum(123;"}3 2 1"), b) 14,23 =DiSum(123,45;"v{3.2.1}"), c) 2x2/4-6a =DiSum("123x45/67-89a";"Z3 -2 1"),
          d) A1:C1 enthalte 1 , 3 , 2 → 28 {=DiSum(123456788;"z"&RinMxList({1.-1.1}*MTRANS(A1:C1);-2))} → Arg1 durch 7 teilbar º
Bsp4: a)   3 =DiSum(123453489;;;1),    c)    5 =DiSum("FF";"H0";;1) [hier 0⁰ → 1],    e) 4 =DiSum(222;"{1.+0,5.0,5}") dt Arg2-Notation,
          b) 66 =DiSum(123453489;;3;1), d) 932 =DiSum(123453489;"z{3.2.1}";3;1), f) 4 =DiSum(222;"{1.0,0.5,0.5}") US-Arg2-Notation
Hinweis: Bei Bildung der k-Quersumme¹ (zur Basis b^k, b=10 im Dezimalsystem) einer n-stelligen Zahl z (z_nz₁) mit z_i=[ [z/b^ik]_mod/b^k(i-1)]_int↓ für i=1[n/k]_int↑ können folgende Verfahren unterschieden werden:
Einfache nicht alternierende Q. q(z)_k=∑z_i → Arg2 darf fehlen (→ Bspp1a/2a)
Einfache alternierende Q. qa(z)_k=∑z_i(-1)^i-1 → Arg2=-1 (→ Bsp1b)
Faktorpotenzierend² (mit f lt Arg2) gewichtete nicht alternierende Q. qw_p(z)_k=∑z_if ^i-1 → Arg2>1 (→ Bspp1d/2be)
Faktorpotenzierend² (mit f lt Arg2) gewichtete alternierende Q. qaw_p(z)_k=∑z_i(-f )^i-1 → Arg2<-1 (→ Bspp1c/2c)
Faktorradizierend³ (mit f lt Arg2) gewichtete nicht alternierende Q. qw_r(z)_k=∑z_if ^1/i → Arg2 beginnt mit /, W,w bzw R,r (→ Bspp1e/2d)
Faktorradizierend³ (mit f lt Arg2) gewichtete alternierende Q. qaw_r(z)_k=∑z_i(-1)^i-1f ^1/i → Arg2 beginnt mit -/, (dito, → Bsp1f)
Mit Zahlenfolge⁴ (als Text bzw textliefernder Ausdruck in Arg2) bzw ihren Kehrwerten gewichtete Q. qw(z)_k=∑z_if_j^±1 (f_j=f₁,,f_m für m≥n)
  → Arg2 beginnt mit ± {,Z,V,H,W,R für j=1-i+[n/k]_int↑ bzw r,w,h,v,z,} für j=i (R,r,W,w,/H,/h bzw #R,#r,#W,#w Kehrwerte; → Bspp3/4df)
Iterierte Q. qi(z)_k in allen Varianten⁵ → Arg4=1 hat Priorität ab 1.Iteration (Primärergebnis wird zuvor ganzzahlig gerundet)
  → Ergebnis ist maximal k-stellig (Arg3), dabei wird das Wichten ggf unterlassen⁵ (→ Bspp4ad)
Wenn Arg1 mehrere durch Text getrennte Zahlen (auch hexadezimal AF, in Arg2 mit # bzw H,h vor [dezimalem] Wert bzw vor der Zahlenfolge oder AF [auch in Zahlenfolge] angezeigt) enthält (und/oder Arg3 negativ ist), wird Arg2 auf jede dieser Zahlen von Neuem angewendet (bzw lückenlos verknüpfte Teil-QSummen gebildet → Bsp1g). Dabei darf eine Zahlenfolge nicht weniger Werte enthalten als die längste Zahl Ziffern hat (→ Bspp3bc). Zuvor werden aus Arg1 die Zeichen entfernt, die optional in Arg5 angegeben werden können (→ Bsp1g).
Wenn die Zahlenfolge Dezimalbrüche enthält, muss auch der 1.Wert als Dezimalbruch oder der 2.Wert mit Vorzeichen (→ Bspp4ef) angegeben werden, damit die Notationsform sicher identifiziert werden kann.
qw_p kann auch eingesetzt werden, um Zahlen anderer Zahlensysteme⁷ ins Dezimalsystem zu konvertieren (→ Bspp1dg/2be). Dabei bietet die Angabe von k>1 in Arg3 die Möglichkeit, in Arg1 Zahlen aus 'mehrstelligen', weil dezimal dargestellten Ziffern (bspw des Vigesimalsystems, → Bsp2e) anzugeben (k<0 kann zur Konvertierung von Binärwerten aus dual notierten Dezimalziffern zu Dezimalzahlen benutzt werden). Bei Iteration werden solche qw_p-Fälle berücksichtigt, weshalb ihr Ergebnis hier stets < Wichtungsbasis (Arg2) sein muss (das gilt auch für hexadezimal angegebene Zahlen). In allen anderen Fällen gibt Arg3 auch die Maximalstelligkeit des Iterationsergebnisses vor, die aber auch unterschritten werden kann (→ Bsp4bd). Eine mathematisch sinnvolle Iteration liefert im Dezimalsystem dahingegen stets ein einstelliges Ergebnis.
xlAlternativen {Matrixformel bzw -funktion}⁶
- für 1a: =SUMMENPRODUKT(1*TEIL(123;ZEILE(INDIREKT("1:"&LÄNGE(123)));1))
- für 1b: {=SUMME(1*TEIL(123;ZEILE(INDIREKT("1:"&LÄNGE(123)));1)*-1^(LÄNGE(123)-ZEILE(INDIREKT("1:"&LÄNGE(123)))))}
- für 1e: {=SUMME(1*TEIL(123;ZEILE(INDIREKT("1:"&LÄNGE(123)));1)*10^(1/(LÄNGE(123)+1-ZEILE(INDIREKT("1:"&LÄNGE(123))))))}
- für 1f: =SUMMENPRODUKT(1*TEIL(123;ZEILE(INDIREKT("1:"&LÄNGE(123)));1)*-1^(LÄNGE(123)-ZEILE(INDIREKT("1:"&LÄNGE(123))))*2^(1/(LÄNGE(123)+1-ZEILE(INDIREKT("1:"&LÄNGE(123))))))
- für 2e: [gemeingültig ] =SUMMENPRODUKT(1*TEIL(WIEDERHOLEN(0;REST(LÄNGE(A1);C1))&A1;C1*ZEILE(INDIREKT("1:"&AUFRUNDEN(LÄNGE(A1)/C1;0)))-1;C1)*B1^(AUFRUNDEN(LÄNGE(A1)/C1;0)-ZEILE(INDIREKT("1:"&AUFRUNDEN(LÄNGE(A1)/C1;0)))))
- für 3a: =SUMMENPRODUKT(--TEIL(123;ZEILE(INDIREKT("1:"&LÄNGE(123)));1);ZEILE(1:3))
- für 3d: =SUMMENPRODUKT(A1:C1*{1;-1;1};--TEIL(123456788;LÄNGE(123456788)+1-SPALTE(A:C)-3*(ZEILE(1:3)-1);1))
º 0 =REST(123456788;7)
¹ Ziffernsumme einer Zahl [engl. DigitSum ] Die Funktion kann mit xxlFkt TransFor und mit XLM-Fkt AUSWERTEN in benannten Formeln i.d.R. ausgewertet werden, wodurch die sonst weitgehend fehlende Matrixformelfähigkeit ausgeglichen werden kann (Ausnahme: einzellig, → Bsp3d). Arg2=0 führt wegen internem 0°=1 zur Wahl der jeweils letzten Ziffer.
² Arg1-Ziffern von rechts nach links mit Arg2-Potenzen 0,1,2, multipliziert.   ³ Arg1-Ziffern von rechts nach links mit Arg2-Potenzen ¹/_1,2,3, multipliziert.
⁴ 1.Symbolgruppe: (Kehr-)Werte der Reihe werden von links nach rechts mit den Ziffern von Arg1 multipliziert;  2.Symbolgruppe: (Kehr-)Werte werden von rechts nach links mit den Ziffern von Arg1 multipliziert. Bei Überzahl entfallen stets die letzten Werte der Reihe. Ein Listentext in Form einer {Matrixkonstanten} als Text (bspw im Ergebnis der xxlFkt RinMxList, →FMod4Area) kann direkt (als Text! ) oder als Ausdruck verwendet werden (ggf ± v, z, r, w bzw h,H, /h,/H voranstellen). Differenzbildung hängt hier ausschließlich von den Arg2-Werten ab. Ein ihnen vorangestelltes Minuszeichen beeinflusst stets alle Werte.
⁵ Iteration ist nur mit einer einzelnen Ganzzahl als Arg1 möglich! Da auch die Iteration von qw wenig sinnvoll sein mag, wird hier die Wichtung ab Erreichen der Stellenanzahl von Arg2 durch das Iterationszwischenergebnis bzw bei seinem 'Anwachsen' eingestellt. Deshalb liefert die wiederholte Anwendung ohne Iteration auf eine Zahl (Sekundäriteration) u.U. ein anderes Ergebnis als die einmalige Anwendung mit Iteration (Primäriteration). Das gilt auch für die Alternierung. D.h., solche Operationen können bei Bedarf zwar durchgeführt werden, ihr mathematischer Sinn ist aber unbestimmt und ihr Ergebnis somit indifferent.
⁶ Matrixformel {=SUMME()} und -funktion SUMMENPRODUKT() sind hier i.d.R. austauschbar (außer für Bspp3ad).
⁷ Bei Dualzahlen können integrierte Minusdarstellungen nicht berücksichtigt werden! Ebenso eignen sich Zahlen mit Dezimaltrennzeichen wenig für eine derartige 'Ersatz'-Konvertierung (vgl xxlFkt ConVar und xxlFkt ConBin, →FMod7Divs).
Vs 2.1b -Autor: LSr -1Pub: nie -CDate: 2003/4 -LUpd: 20090616n
Hinweis: Nicht auf die Links klicken, sie führen hier nirgendwohin!
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread