Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB5, VB6 | 07.11.07 |
Nachkomma-Anteil einer Dezimalzahl ermitteln Mit diesen beiden Funktionen lässt sich der Nachkomma-Anteil einer Dezimalzahl ermitteln. | ||
Autor: Dieter Otter | Bewertung: | Views: 30.806 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Heute möchten wir Ihnen zwei Funktionen vorstellen, mit denen sich der Nachkomma-Anteil einer Dezimalzahl ermitteln lässt. Die erste Funktion gibt den Nachkomma-Anteil hierbei ebenfalls als Dezimalzahl im Format 0,... zurück. Die zweite Funktion hingegen ermitteln den Nachkomma-Anteil der Dezimalzahl und gibt diesen als Ganzzahl zurück.
' Gibt den Nachkomma-Anteil einer Zahl als Dezimalzahl zurück. ' ' Beispiel: 15,891 ' Rückgabewert: 0,891 ' Public Function GetDecimals(ByVal vNumber As Variant) As Variant GetDecimals = vNumber - Fix(vNumber) End Function
' Gibt den Nachkomma-Anteil einer Zahl als Ganzzahl zurück. ' ' Beispiel: 15,891 ' Rückgabewert: 891 ' Public Function GetDecimalsInt(ByVal vNumber As Variant) As Long GetDecimalsInt = Val(Mid$(Str$(vNumber - Fix(vNumber)), 3)) End Function