Re: FLoat Zahl mit zwei Nachkommastellen
Verfasst: 13.10.2012 23:58
@Falko
Diesen "Mischmasch" von gleichnamigen Globalen und Lokalen (parameter sind immer Lokal) finde ich nicht
sehr Einsteigerfreundlich. Entweder ohne Parameter oder besser so: 
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" 