Logarithmus zu beliebiger Basis Funktion, die den Logarithmus zu einer beliebigen Basis berechnet
Autor:   sandro	Bewertung:	Views:  17.317
www.sandrosoft.2.ag	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Sicherlich bietet VB die Möglichkeit Logarithmen zu berechnen. Wer das aber schon einmal versucht hat, wird enttäuscht feststellen müssen, dass sich mit der "log"-Funktion nur - wie auf den meisten Taschenrechnern - 10er-Logarithmen berechnen lassen .

Wenn man aber nun nicht 10 als Basis hat, sondern eine andere Zahl, was dann?

Folgende kurze Funktion schafft Abhilfe:

' Berechnet den Logarithmus zur Basis "dBasis" von "dWert"
Public Function LogN(ByVal dBasis As Double, _
  ByVal dWert As Double) As Double
 
  LogN = Log(dWert) / Log(dBasis)
End Function

Und so wird sie im Code aufgerufen:

' Kleines Anwendungsbeispiel
' Logarithmus 64 zur Basis 2 berechnen 
MsgBox "log2(64) = " & LogN(2, 64)

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.