In France we use the comma as decimal separator...
Fair point, Yvan. :-)
------------------
on currency_format for v
set {s, d} to {(0 as real as text)'s character 2, (round (v mod 1 *
100)) / 100 as string}
(v div 1 as text) & s & text 1 thru 2 of (d's text ((offset of s in
d) + 1) thru -1 & "00")
end currency_format
