Fonction basiqued’affichage en Millier !

 

a="12345678912312321"
wscript.echo Millier(a)

function Millier(a)
x=len(a)
j=0
result=""
do while x>3
  x=x-3
  result=mid(a,x+1,3)+" "+result
loop
If x>0 Then Result= Left(a,x)+" "+result
Millier=rtrim(result)
end function