Seite 4 von 4

Verfasst: 09.11.2005 17:43
von 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...

Verfasst: 09.11.2005 18:16
von Lupo
@kaeru

nöö, das war zu schnell gecodet :mrgreen: :mrgreen:

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

Verfasst: 09.11.2005 18:33
von 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

Verfasst: 09.11.2005 19:46
von PB42
Klappt 1a! :allright: 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