vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Variablen/Strings · Algorithmen/Mathematik   |   VB-Versionen: VB5, VB628.09.05
Größte Dezimalstelle einer Zahl ermitteln

Haben Sie schon mal versucht die größte Dezimalstelle einer Zahl zu ermitteln?

Autor:   Gero BonowBewertung:     [ Jetzt bewerten ]Views:  10.023 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Haben Sie schon mal versucht die größte Dezimalstelle einer Zahl zu ermitteln?

Im Grunde ist dieses Problem recht einfach, da sich z.B. für 100 drei Dezimalstellen ergeben, oder für 0,001 gleich minus drei.

Was sich mit unseren Verstand recht einfach bewerkstelligen läßt, ist in VB (und auch in anderen Programmiersprachen) nicht ganz so einfach. Eine VB bzw. mathematische Funktion wie dem Sinus, oder dem Logarithmus gibt es für dieses Problem nicht.

Ein Ansatz dazu bietet der sogenannte Zehnerlogarithmus (LOG10). Da dieser in VB ebenfalls nicht implementiert ist, muss dieser über die allgemeine Formel berechnet werden:

LOG10(x) = Log(x) / Log(10)

Somit läßt sich jetzt die größte Dezimalstelle jeder beliebigen Zahl berechnen. Da hier nur die ganze Stelle von interesse ist, kann der Rest bequem abgeschnitten werden.

Die nachfolgende Funktion ist zwar mathematisch nicht ganz korrekt, löst aber das Problem recht einfach und vor allem: schnell

Public Function GetExponent(ByVal Value) As Integer
  If Value >= 1 Or Value <= -1 Then
    GetExponent = Fix(Log(Abs(Value)) / Log(10) + 1)
  ElseIf Value < 1 Or Value > -1 Then
    GetExponent = Fix(Log(Abs(Value)) / Log(10) - 1)
  Else
    GetExponent = 0
  End If
End Function

Dieser Tipp wurde bereits 10.023 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel