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]

ASP.NET 2.0 und 3.5

Dieser Kurs vermittelt Ihnen alle Erweiterungen von Microsoft ASP.NET 2.0. Zu diesen zählen u. a. Data Bindung, Master Pages, und Security.

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten 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!