Nachkommastellen und überflüssige Nullen

[Kaeru Gaman]

hm, ich verstehe nich ganz, wieso da was nicht mehr funktioniert...

Code: Alles auswählen

Number$ = StrF(Var,4)
While Right( Number$,1)="0" Or Right( Number$,1)="."
  Number$ = Left(Number$, Len(Number$)-1)
Wend

würd ich da mal so ausm ärmel schütteln...

[Lupo]

@kaeru

nöö, das war zu schnell gecodet

Code: Alles auswählen

Var.f = 1200.00

Number$ = StrF(Var,4) 
While Right( Number$,1)="0" Or Right( Number$,1)="." 
  Number$ = Left(Number$, Len(Number$)-1) 
Wend

Debug Number$

LUPO

[Kaeru Gaman]

*handvordiestirnklatsch*

argl, hast recht... die komma-prüfung muss aus der schleife raus...

Code: Alles auswählen

Number$ = StrF(Var,4) 
While Right( Number$,1)="0" 
    Number$ = Left(Number$, Len(Number$)-1) 
Wend 

If Right( Number$,1)="." 
    Number$ = Left(Number$, Len(Number$)-1) 
EndIf

[PB42]

Klappt 1a! Das war's, was ich gesucht hatte und das speichere ich als Muster-Datei. Ich selber hatte auch schon an das Arbeiten mit Strings gedacht, aber die Funktionen Left() und Right() sind neu für mich. Also vielen Dank, Kaeru Gaman und Lupo.

PB42