Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige