PureBoard

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

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, ",")