|
Den Nachkomma-Anteil einer Zahl ermitteln Sie, indem Sie den
ganzzahligen Anteil subtrahieren. Den ganzzahligen Anteil erhalten
Sie über die relativ unbekannte VB-Funktion Fix. Die Funktion Fix
schneidet tatsächlich nur den Nachkomma-Anteil ab, im Gegensatz zu
Funktionen wie Int, CInt oder CLng, die statt dessen automatisch
runden.
Decimals = Number - Fix(Number)
Oder als praktische datentypspezifische Hilfsfunktionen (Double
als Standard-Ausführung):
Public Function GetDecimals(ByVal Number As Double) As Double
GetDecimals = Number - Fix(Number)
End Function
Public Function GetDecimalsS(ByVal Number As Single) As Single
GetDecimalsS = Number - Fix(Number)
End Function
Public Function GetDecimalsC(ByVal Number As Currency) As Currency
GetDecimalsC = Number - Fix(Number)
End Function
 |
Mit diesen Hilfsfunktionen ermitteln Sie den
Nachkomma-Anteil einer Zahl eines spezifischen Datentyps
|
|