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