<%
'*******************************
«Fonction: virgule (str)
'Paramètre: Str, le nombre à traiter
'Auteur: Alixi
'Date: 2007/7/12
'Description: Renvoie la valeur formatée dans l'affichage des nombres numériques dans les millièmes
'Exemple: <% = virgule ("120300")%>
'*******************************
FunctionComma (STR)
ifnot (isNumeric (str)) orstr = 0Then
résultat = 0
Elseiflen (fix (str)) <4Then
résultat = str
autre
pos = instant (1, str, ".")
IFPOS> 0THEN
dec = mid (str, pos)
endire
res = strReverse (fix (str))
LOOPCOUNT = 1
WhileLoopCount <= len (res)
Tempresult = Tempsult + Mid (Res, LoopCount, 3)
LOOPCOUNT = LOOPCOUNT + 3
ifloopcount <= len (res) puis
Tempresult = Tempresult + ","
endire
se promener
Résultat = strReverse (Tempsult) + déc.
endire
virgule = résultat
finition de fin
%>