SepNbreSyntaxeSepNbre(Nbre)
Sépare les chiffres d'un nombre par groupe de 3. Le paramètre et le résultat sont au format texte.
Par Fredo d;o) ExempleSepNbre("1234567890,123")
---> "1 234 567 890,123" Scripton SepNbre(Nbre)
set {Ent, Dec} to {Nbre, ""}
if ("," is in Nbre) then set {Ent, Dec} to ¬
{((text 1 thru ((offset of "," in Nbre) - 1)) of Nbre) as text, ¬
"," & text ((offset of "," in Nbre) + 1) thru -1 of Nbre}
set {EntOk, LongEnt} to {"", length of Ent}
repeat with Bcl from -1 to -LongEnt by -3
set EntOk to (" " & (text Bcl thru (Bcl - 2) of (" " & Ent)) & EntOk)
end repeat
return ((text -1 thru -(LongEnt + (LongEnt div 3)) of EntOk) & Dec) as text
end SepNbre
RemarqueUn exemple de boucle "repeat" décroissante.
|