|
In der Visual Basic-Dokumentation finden Sie in der
Sprachreferenz als Beispiel zur  Atn-Funktion
eine Formel zur Ermittlung des Wertes von Pi.
PI = 4# * Atn(1)
Diese Formel ergibt den Wert 3,14159265358979 - ein Wert des
Datentyps Double.
Sollten Sie den Wert von Pi noch genauer benötigen, können Sie
den internen Variant-Datentyp Decimal verwenden, der um einiges
genauer ist (+/-7,9228162514264337593543950335 mit
28 Nachkommastellen). Konvertieren Sie den Rückgabewert der
Atn-Funktion in einen solchen Decimal-Wert, erhalten Sie immerhin
noch eine Stelle mehr hinter dem Komma: 3,141592653589792. Diese
Ermittlung des Wertes von Pi können Sie in eine öffentliche
Funktion in ein Standard-Modul schreiben:
Public Function PI() As Variant
PI = 4# * CDec(Atn(1))
End Function
Allerdings müssen Sie den Rückgabewert der Funktion auch
weiterhin als Variant verarbeiten. Die Zuweisung zu einer Variablen
des Datentyps Double würde die zusätzlich gewonnene Stelle wieder
kappen.
|