如何格式化xquery中的小數？

Question

我想在XQuery中格式化小數。小數點是貨幣，所以格式應該是,###.##。

例如：

5573652.23應該5,573,652.23

和

352769應352,769（或352,769.00如果它更容易/清潔劑）

現在，我使用這個函數http://www.xqueryhacker.com/2009/09/format-number-in-xquery/，但我不能用小數：

declare function local:format-int($i as xs:int) as xs:string 
{ 
    let $input := 
    if ($i lt 0) then fn:substring(fn:string($i), 2) 
    else fn:string($i) 
    let $rev := fn:reverse(fn:string-to-codepoints(fn:string($input))) 
    let $comma := fn:string-to-codepoints(',') 

    let $chars := 
    for $c at $i in $rev 
    return (
     $c, 
     if ($i mod 3 eq 0 and fn:not($i eq count($rev))) 
     then $comma else() 
    ) 

    return fn:concat(
    if ($i lt 0) then '-' else(), 
    fn:codepoints-to-string(fn:reverse($chars)) 
) 
}; 

我爲我的處理器使用了Saxon 9HE。

任何幫助將不勝感激。

----- ----- UPDATE

基於Dimitre的回答，我修改了功能，節省小數部分，並將其添加到返回字符串的結尾。

新功能

declare function local:format-dec($i as xs:decimal) as xs:string 
{ 
    let $input := tokenize(string(abs($i)),'\.')[1] 
    let $dec := substring(tokenize(string($i),'\.')[2],1,2) 
    let $rev := reverse(string-to-codepoints(string($input))) 
    let $comma := string-to-codepoints(',') 

    let $chars := 
    for $c at $i in $rev 
    return (
     $c, 
     if ($i mod 3 eq 0 and not($i eq count($rev))) 
     then $comma else() 
    ) 

    return concat(if ($i lt 0) then '-' else(), 
       codepoints-to-string(reverse($chars)), 
       if ($dec != '') then concat('.',$dec) else() 
       ) 
}; 

Answer 1

使用：

let $n := 5573652.23 
return 
     concat(local:format-int(xs:int(floor($n))), 
      '.', 
      substring(string($n - floor($n)), 3) 
      ) 

這正好產生想要的，正確的結果：

5,573,652.23 

Answer 2

這並不爲你工作？：

format-number(5573652.23,",###.##") 

你可以用這個here玩。我很確定撒克遜人支持這個功能。

編輯：此功能在撒克遜不支持（見下面的註釋）。