mit meinem Makro suche ich eine 22-stellige Zahl, die zugleich eine Quadratzahl sein soll. Durch die Ungenauigkeit bei so großen Zahlen wird die genaue Zahl nicht gefunden, bloß eine mit 0,99999 Genauigkeit.
Was ist zu tun? Mit dem Wissen dass fragen leichter ist als antworten, Gruß Alifa. Hier mein Makro:
'Finde die kleinste 2n lange Quadratzahl mit folgender Eigenschaft.
'Die Zahl aus den ersten n Ziffern, und die Zahl aus den letzten n Ziffern,
'in dieser Reihefolge, sind gleich.
'Z.B: 38567813856781 aber nicht 4760476 wegen der Null.
Sub ZaSp28() 'ungenaue Berechnung
Dim z%, u As Variant, v As Variant, t!
t = Timer
For u = 10000000000# To 19999999999#
v = (u & u)
If Sqr(CDec(v)) = Int(CDec(Sqr(v))) Then
Cells(z + 1, 12) = u
'z = z + 1
'Exit Sub
End If
Next
MsgBox "fertig in " & Timer - t & " Sek"
End Sub