<%
'*********************************
'Funktion: comma (str)
'Parameter: STR, die zu verarbeitende Nummer
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Gibt die in der Anzeige von numerischen Zahlen in den Tausendstern formatiertes Wert zurück
'Beispiel: <%= comma ("120300")%>
'*********************************
functionComma (str)
ifnot (isnumeric (str)) orstr = 0Then
Ergebnis = 0
Elseiflen (Fix (str)) <4Then
Ergebnis = str
anders
pos = instr (1, str, ".")
ifpos> 0Then
dec = Mid (str, pos)
Endif
res = Strreverse (Fix (STR))
LoopCount = 1
whileloopcount <= len (res)
tempresult = tempresult+Mid (res, LoopCount, 3)
LoopCount = LoopCount+3
ifloopCount <= len (res) dann
tempresult = tempesult+",", ",", ",", ",", ",", ",", ",", ","
Endif
Wend
Ergebnis = Strreverse (Tempresult)+Dec
Endif
comma = Ergebnis
Endfunktion
%>