German Format String

[Berny Mayer]

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

 

[specci48]

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

 

[pjo12345]

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

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...

 

[Berny Mayer]

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.

 

[pjo12345]

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

ändern in
Ergebnis = "0" & NumberFormat2(Zahl,1,2,2,False)

 

[Berny Mayer]

Das klingt interessant! Danke Dir.

 

[specci48]

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)​

 

[Berny Mayer]

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

 

[MaFu]

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

ändern in
Ergebnis = "0" & NumberFormat2(Zahl,1,2,2,False)

Das geht aber schief sobald die Nummer zweistellig wird. Besser so:

Ergebnis = NumberFormat2(Zahl,2,2,2,False)