Feedback

VB - Nachkommastellen Wert erfahren

Veröffentlicht von am 23.09.2008
(1 Bewertungen)
Gibt den Wert zurück nach ohne ganze Zahlen ist.
Public Function GetDecimals(ByVal V As Single) As Single
                Dim i As Integer = Global.System.Math.Truncate(V)
                Return V - i
            End Function

            Public Function GetDecimals(ByVal V As Double) As Double
                Dim i As Integer = Global.System.Math.Truncate(V)
                Return V - i
            End Function

1 Kommentare zum Snippet

SAN-Software schrieb am 23.09.2008:
Man kann das eigentlich noch kürzer schreiben. Wozu die Variable I definieren?

 
Public Function GetDecimals(ByVal V As Double) As Double
Return V - Global.System.Math.Truncate(V)
End Function
 

Logge dich ein, um hier zu kommentieren!