German Format String

Discussion in 'German Forum' started by Berny Mayer, Jul 16, 2015.

  1. Berny Mayer

    Berny Mayer Member Licensed User

    Habe auch als Einsteiger das Problem, eine Zahl (oder einString) von z.B 7.1 in 7.10 umzuwandeln.

    Habt Ihr ein Tip für mich?
    Gruß Berny
     
  2. specci48

    specci48 Well-Known Member Licensed User

    Hallo Berny,

    es gibt hier den Befehl NumberFormat in zwei Ausprägungen:

    NumberFormat(Number As Double, MinimumIntegers As Int, MaximumFractions As Int)​
    und
    NumberFormat2(Number As Double, MinimumIntegers As Int, MaximumFractions As Int, MinimumFractions As Int, GroupingUsed As Boolean)​

    Eine ausführlichere Beschreibung hierzu findest du auch im Beginners Guide im Kapitel "14.8 String manipulation".


    Gruß
    specci48
     
  3. pjo12345

    pjo12345 Active Member Licensed User

    NumberFormat2(DeineZahl,1,2,2,False)


    Code:
    Dim Zahl As Double
    Dim Ergebnis As String
    Zahl=
    1.7
    Ergebnis = 
    NumberFormat2(Zahl,1,2,2,False)
    Log("Zahl= " & Zahl)
    Log("Ergebnis= " & Ergebnis)
    Sollte funktionieren...
     
  4. Berny Mayer

    Berny Mayer Member Licensed User

    Danke Dir für Deine Antwort. Habe wohl den Fehler gemacht, Zahlen wie :"5.1" als String abzuspeichern. Jetzt will ich, dass in der Tabelle der Wert als "05.10" , dargestellt werden soll.
     
  5. pjo12345

    pjo12345 Active Member Licensed User

    Einfach die Zeile
    Ergebnis = NumberFormat2(Zahl,1,2,2,False)

    ändern in
    Ergebnis = "0" & NumberFormat2(Zahl,1,2,2,False)
     
    Berny Mayer likes this.
  6. Berny Mayer

    Berny Mayer Member Licensed User

    Das klingt interessant! Danke Dir.
     
  7. specci48

    specci48 Well-Known Member Licensed User

    Sofern Du die Zahlen "sauber" als String hast, kann man sie beliebig konvertieren, z.B.:

    Dim a As String = "5.1"
    Dim b As Double
    b = a
    Label1.Text = NumberFormat2(b, 2, 2, 2, False)​
     
    AlbertDE and Berny Mayer like this.
  8. Berny Mayer

    Berny Mayer Member Licensed User

    Das sieht gut aus! So müsste ich meine "Stringzahl" mit NUMBERFORMAT2 umwandeln können.
     
  9. MaFu

    MaFu Well-Known Member Licensed User

    Das geht aber schief sobald die Nummer zweistellig wird. Besser so:
    Code:
    Ergebnis = NumberFormat2(Zahl,2,2,2,False)
     
Loading...