FLoat Zahl mit zwei Nachkommastellen

[ts-soft]

@Falko
Diesen "Mischmasch" von gleichnamigen Globalen und Lokalen (parameter sind immer Lokal) finde ich nicht
sehr Einsteigerfreundlich. Entweder ohne Parameter oder besser so:

Code: Alles auswählen

EnableExplicit

Procedure.s Euro2Cent(euro.s)
  If FindString(euro,".")
     ProcedureReturn RemoveString(euro, ".")
  Else
     ProcedureReturn Str(Val(euro) * 100)
  EndIf
EndProcedure

Procedure.s Cent2Euro(cent.s)
  Protected Euros.s = Str(Val(cent) / 100)
  Euros + "," + Str(Val(cent) % 100)
  ProcedureReturn Euros.s
EndProcedure


Debug Euro2Cent("10.12") + " Cent"
Debug Cent2Euro("19921") + " Euro" 

[Falko]

Hast Recht, Thomas