Function CmToString(ByVal cm As Integer) As String
        Dim sb As New System.Text.StringBuilder
        Dim km As Integer = cm / 100000 ' Kilometer
        Dim m As Integer = (cm Mod 100000) / 100 'Meter
        Dim c As Integer = cm Mod 100 'Zentimeter
        sb.Append(km & "km " & m & "m " & c & "cm")
        Return sb.ToString()
    End Function

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

Beitrag wurde zuletzt am 20.07.08 um 12:42:48 editiert.