Dezimalzahl in Bruch umrechnen

Alex-Digital · 27. Oktober 2012, 15:00

Das ist eine Function, der euch eine Dezimalzahl in einen Bruch umrechnet:

Public Shared Function DezToBruch(ByVal dezimalzahl As String) As String
Dim nachkommastellen As String = dezimalzahl.Substring(dezimalzahl.IndexOf(",") + 1)
Dim chars() As Char = nachkommastellen.ToCharArray
Dim count As Integer = chars.Length
Dim nenner As String = "1"
For i = 1 To count
nenner = nenner & 0
Next
Dim zaehler As String = nachkommastellen.Replace("0", "")
If dezimalzahl.StartsWith("0") Then
Return zaehler & "/" & nenner
Else
Dim distanz As Integer = dezimalzahl.IndexOf(",")
Return dezimalzahl.Substring(0, +distanz) & " " & zaehler & "/" & nenner
End If
End Function

Ihr könnt ihn dann so verwenden:

Beispiel:

Ausgabe:

11 345/100

Viel Spaß damit! :thumbsup:

MFG

Alex-Digital

RodFromGermany · 28. Oktober 2012, 12:51

Immerhin ist es ganz gut, dass Dein Programm besser "rechnen" kann als Du:

Alex-Digital schrieb:

Ausgabe:
11 345/1000

Nur:
Wozu soll das gut sein, zumal Du nichts rechnest, sondern nur ein kleines bisschen Textverarbeitung programmiert hast :?:

Insbesondere sind Input und Output Strings, und mit Strings kann man nun mal nicht rechnen.

Quadsoft · 28. Oktober 2012, 13:02

ich würde den bruch mal kürzen^^

RodFromGermany · 28. Oktober 2012, 13:12

Quadsoft schrieb:

kürzen

Dazu müsste er tatsächlich rechnen, und das noch ganzzahlig, aber das kann @Alex-Digital: offensichtlich nicht so richtig.

Samus Aran · 28. Oktober 2012, 13:30

Nebenbei ist der Funktionsname Clusterfuck. "Bruch" heißt im Englischen "Fraction".
Und du solltest diese Funktion als Extension-Method umschreiben.