如何格式化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玩。我很确定撒克逊人支持这个功能。

编辑：此功能在撒克逊不支持（见下面的注释）。