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

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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)