Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schach

Forumthread: Schach

Schach
21.05.2004 15:17:11
JürgenP
Hallo Leute!
Heute hab ich mal was kurioses für euch.
Ich will das mit Hilfe eines Makros ausrechnen:

Sub Schach()
Dim x As Long
Dim y As Long
y = 32
For x = 33 To 64
y = y * x
Next x
MsgBox y
End Sub

Das sind die Anzahl der möglichen Stellungen eine Schachspiels.
Problem: Die Zahl ist zu groß.
Kennt ihr einen größeren Datentyp als Long?
Danke. Bis dann,
Jürgen
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schach
21.05.2004 15:33:37
Christian
Hi Jürgen,
schau dir mal in der Hilfe die "Datentypen (Zusammenfassung)" an.
ich denke mit Double müsstest du hinkommen.
Gruß
Christian
AW: Schach
21.05.2004 16:07:21
Nepumuk
Hallo Jürgen,
du kannst zwar den Datentyp Single verwenden, aber der führt auch nur zu eine Exponentialzahl (1,54310375677157E+55), da die größte darstellbare Zahl 79.228.162.514.264.337.593.543.950.335 beträgt. Wenn du eine größere Zahl sauber berechnen willst, dann so:


Public Sub Schach()
    Dim As Integer, y As Integer
    Dim As String, a As String, m As String
    z = "32"
    m = "0"
    For x = 33 To 64
        For y = Len(z) To Step -1
            a = CStr(CInt(Mid$(z, y, 1)) * x + CInt(m))
            Mid$(z, y, 1) = Right(a, 1)
            m = StrReverse(Mid$(StrReverse(a), 2))
            If Trim$(m) = "" Then m = "0"
        Next
        z = m & z
        m = "0"
    Next
    For x = Len(z) - 3 To Step -3
        z = Mid$(z, 1, x) & "." & Mid(z, x + 1)
    Next
    MsgBox z
End Sub


Gruß
Nepumuk
Anzeige
Genial....oT
Sven
oT
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige