ts() - Thousand/Tausend Separator

Veröffentliche deine funktionierenden Skripte und Funktionen

Moderator: jNizM

BoBo
Posts: 3875
Joined: 13 May 2014, 17:15

ts() - Thousand/Tausend Separator

16 Jun 2020, 10:41

Nach einer Anfrage in :arrow: diesem thread hat fellow AHK member @Ragnar eine interessante Option aufgezeigt, eine Zahl mit 'Tausender-Separator' zu versehen. Hier sein Code, jedoch leicht abgewandelt als Funktion ...

Code: Select all

MsgBox % ts(100000)													; 100.000
MsgBox % ts(34)														; 34
MsgBox % ts(21890)													; 21.890
MsgBox % ts(100.99)													; 100.99	(thousand sep. will be generated based on your local currency settings!).
MsgBox % ts("4321,99")												; 4.321,99
MsgBox % ts("4321,9876")											; 4.321,9876

ts(number) {
	Static E, UD													; muß static oder global deklariert werden 
	dcpl:=	InStr(number,",") ? (StrSplit(number,","), del := ",")	; evtl vorhandene nachkommastellen ermitteln
		:	InStr(number,".") ?	(StrSplit(number,"."), del := ".")	; ... decimal place (anglo-american style). 
		:	""
	Gui, Add, Edit, vE												; 'buddy-control' des folgenden UD. Diese variable enthält den ts-formatierten wert.
	Gui, Add, UpDown, Range-2147483648-2147483647 vUD, % number		; vUD = unformatierter wert: https://ahkde.github.io/docs/commands/GuiControls.htm#UpDown  
	GuiControlGet, ConvNo,, E										; abfrage des ts-formatierten wertes 
	Gui, Destroy													; Nero-Befehl
	Return ConvNo . del . dcpl[2]									; rückgabe des ts-formatierten wertes (mit ggf nachkommastellen)
	}
Limitierung: keine Darstellung von floating-point-number-nachkommastellen. :)

Return to “Skripte und Funktionen”

Who is online

Users browsing this forum: No registered users and 1 guest