Feedback

VB - Nachkommastellen Wert erfahren

Veröffentlicht von am 23.09.2008
(1 Bewertungen)
Gibt den Wert zurück nach ohne ganze Zahlen ist.
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Aufbau

Nach dieser Schulung können Sie mittels objektorientierter Modelle in VB.NET 2017/2015/2013 wiederverwendbare Elemente eigenständig erstellen.

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

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!