Zahlen formatiert ausgeben

[walbus]

[NicTheQuick]

Dann lasst den Contest mal beginnen. Hier mal meine Pointer-lose Version:

Code: Alles auswählen

Procedure.s zahl_formatieren(value.q, delimiter.c)
	Protected.s sValue = Str(value)
	Protected.i length = Len(sValue), i = length % 3
	Protected.s	result = Left(sValue, i)
	
	For i = i To length - 1 Step 3
		result + Left(Chr(delimiter), i) + Mid(sValue, i + 1, 3)
	Next
	
	ProcedureReturn result
EndProcedure

[RSBasic]

Hier meine WinAPI-Version:

Code: Alles auswählen

Procedure.s GetNumberFormat(Number$, ThousandGroup, ThousandSep$, DecimalGroup, DecimalSep$)
  Protected NUMBERFMT.NUMBERFMT
  Protected lpNumberStr$ = Space(255)
  
  NUMBERFMT\NumDigits = DecimalGroup
  NUMBERFMT\Grouping = ThousandGroup
  NUMBERFMT\lpDecimalSep = @DecimalSep$
  NUMBERFMT\lpThousandSep = @ThousandSep$
  
  GetNumberFormat_(#LOCALE_SYSTEM_DEFAULT, #Null, Number$, NUMBERFMT, @lpNumberStr$, Len(lpNumberStr$))
  
  ProcedureReturn lpNumberStr$
EndProcedure

Debug GetNumberFormat("1234567899", 3, ".", 0, ",")

[NicTheQuick]

Hier meine WinAPI-Version:
<snip>

Du Schummler.

[walbus]

[NicTheQuick]

Wenn du durch 1024 teilst, solltest du seit einige Zeit aber besser MiB schreiben und nicht MB: Byte

[walbus]

[Vera]

Für Newbies, ... ist richtiger.

Wahrlich wahr - denn nur richtiger ist perfekter als korrekt je sein kann


btw: Danke für die netten Beispiele ... ich hab' leider nichts kondensierteres hingekriegt.

cheers ~ Vera

[walbus]

[CodeCommander]

~ DELETE ~