第十七章 Caché 函數(shù)大全 $FNUMBER 函數(shù)

使用指定格式格式化數(shù)值； （可選）四舍五入或零填充到指定的精度。

大綱

$FNUMBER(inumber,format,decimal)
$FN(inumber,format,decimal)

參數(shù)

• inumber 要格式化的數(shù)字。它可以是數(shù)字文字，變量或任何有效的ObjectScript表達(dá)式，其計(jì)算結(jié)果為數(shù)字值。
• format 可選-指定數(shù)字的格式。指定為帶引號(hào)的字符串，該字符串由零個(gè)或多個(gè)格式代碼組成（以任意順序）。格式代碼如下所述。請(qǐng)注意，某些格式代碼不兼容并導(dǎo)致錯(cuò)誤。對(duì)于默認(rèn)格式，可以使用或不使用十進(jìn)制參數(shù)，都可以指定空字符串（“”）。如果省略，則默認(rèn)為空字符串（“”）。
• decimal 可選-要包含在返回?cái)?shù)字中的小數(shù)小數(shù)位數(shù)。如果省略格式，請(qǐng)?jiān)谥付ㄐ?shù)點(diǎn)前添加一個(gè)占位符逗號(hào)。

描述

$FNUMBER以指定格式返回由數(shù)字指定的數(shù)字。

參數(shù)

inumber

解析為數(shù)字的表達(dá)式。在$FNUMBER執(zhí)行任何操作之前，Caché對(duì)inNumber執(zhí)行其標(biāo)準(zhǔn)數(shù)字解析，如下所示：解析變量，執(zhí)行字符串操作(如連接)，將字符串轉(zhuǎn)換為數(shù)字，執(zhí)行數(shù)字表達(dá)式操作，然后將生成的數(shù)字轉(zhuǎn)換為規(guī)范形式。這是$FNUMBER格式化的數(shù)字。

如果inumber是字符串，則Caché首先將其轉(zhuǎn)換為數(shù)字，并在第一個(gè)非數(shù)字字符處截?cái)唷Ｈ绻址牡谝粋€(gè)字符不是數(shù)字字符，則Caché會(huì)將字符串轉(zhuǎn)換為0。

format

可能的格式代碼如下。可以單獨(dú)指定它們，也可以組合指定它們。字母代碼不區(qū)分大小寫。

在Caché中，小于1的小數(shù)以不帶零整數(shù)的Caché規(guī)范形式表示：0.66變?yōu)?code>.66。這是$FNUMBER的默認(rèn)值。但是，大多數(shù)$FNUMBER FORMAT選項(xiàng)返回小于1的帶有前導(dǎo)零整數(shù)的小數(shù)：.66變?yōu)?code>0.66。兩參數(shù)$FNUMBER，其格式為“”（空字符串），“ L”（在功能上與空字符串相同）和“ D”以標(biāo)準(zhǔn)形式返回小于1的小數(shù)：.66。所有其他兩參數(shù)$FNUMBER格式選項(xiàng)和所有三參數(shù)$FNUMBER格式選項(xiàng)都返回小于1的小數(shù)，并帶有單個(gè)前導(dǎo)零整數(shù)：000.66或.66都變?yōu)?code>0.66。這是JSON數(shù)字的小數(shù)數(shù)字格式。

$DOUBLE函數(shù)可以返回值INF（無(wú)限）和NAN（不是數(shù)字）。 INF可能帶有負(fù)號(hào)；格式代碼將INF表示為數(shù)字。例如：+ INF，INF-，（INF）。 NAN不帶標(biāo)志；影響NAN的唯一格式代碼是“ d”，它以小寫字母返回。 “ E”和“ G”代碼對(duì)INF和NAN值沒(méi)有影響。

decimal

十進(jìn)制參數(shù)指定要包含在返回值中的小數(shù)位數(shù)。將十進(jìn)制指定為正整數(shù)，或者將任何有效的ObjectScript變量或表達(dá)式指定為正整數(shù)。如果十進(jìn)制為負(fù)數(shù)，則Caché會(huì)將其視為0值。如果十進(jìn)制是小數(shù)，則Caché會(huì)截?cái)酁檎麛?shù)部分。

• 如果小數(shù)大于inumber中的小數(shù)位數(shù)，則其余位置將填充零。
• 如果小數(shù)小于inumber中的小數(shù)位數(shù)，則Caché將inumber舍入為適當(dāng)?shù)男?shù)位數(shù)。
• 如果十進(jìn)制為0，則inumber作為不帶小數(shù)點(diǎn)分隔符的整數(shù)返回。 Caché將inumber舍入為適當(dāng)?shù)恼麛?shù)。

如果inumber小于1且十進(jìn)制大于0，則$FNUMBER始終在小數(shù)點(diǎn)分隔符前的整數(shù)位置返回單個(gè)零，而不考慮格式值。小數(shù)的這種表示形式不同于Caché規(guī)范形式。

舍入后，可以指定十進(jìn)制參數(shù)來(lái)控制返回的小數(shù)位數(shù)。例如，假設(shè)變量c包含數(shù)字6.25198。

DHC-APP>SET c="6.25198"
 
DHC-APP>SET x=$FNUMBER(c,"+",3)
 
DHC-APP>SET y=$FNUMBER(c,"+",8)
 
DHC-APP>WRITE !,x,!,y
 
+6.252
+6.25198000

第一個(gè)$FNUMBER返回+6.252，第二個(gè)返回+6.25198000。

示例

以下示例顯示不同的格式指定如何影響$FNUMBER的行為。這些示例假定當(dāng)前區(qū)域設(shè)置為默認(rèn)區(qū)域設(shè)置。

下面的示例顯示符號(hào)代碼對(duì)正數(shù)的影響：

/// d ##class(PHA.TEST.Function).FNUMBER()
ClassMethod FNUMBER()
{
    SET a=1234
    WRITE $FNUMBER(a,""),!   ; returns 1234
    WRITE $FNUMBER(a,"+"),!  ; returns +1234
    WRITE $FNUMBER(a,"-"),!  ; returns 1234
    WRITE $FNUMBER(a,"L"),!  ; returns 1234
    WRITE $FNUMBER(a,"T"),!  ; returns 1234 (with a trailing space)
    WRITE $FNUMBER(a,"T+"),! ; returns 1234+
}

DHC-APP>d ##class(PHA.TEST.Function).FNUMBER()
1234
+1234
1234
1234
1234
1234+

下面的示例顯示符號(hào)代碼對(duì)負(fù)數(shù)的影響：

/// d ##class(PHA.TEST.Function).FNUMBER1()
ClassMethod FNUMBER1()
{
    SET b=-1234
    WRITE $FNUMBER(b,""),!  ; returns -1234
    WRITE $FNUMBER(b,"+"),! ; returns -1234
    WRITE $FNUMBER(b,"-"),! ; returns 1234
    WRITE $FNUMBER(b,"L"),! ; returns -1234
    WRITE $FNUMBER(b,"T"),! ; returns 1234-
}

DHC-APP>d ##class(PHA.TEST.Function).FNUMBER1()
-1234
-1234
1234
-1234
1234-

下面的示例顯示“P”格式代碼對(duì)正數(shù)和負(fù)數(shù)的影響。此示例在數(shù)字前后分別寫入星號(hào)，以表明返回的正數(shù)帶有前導(dǎo)空格和尾隨空格：

DHC-APP>WRITE "*",$FNUMBER(-123,"P"),"*",!
*(123)*
 
DHC-APP> WRITE "*",$FNUMBER(123,"P"),"*",!
* 123 *

下面的示例返回1,234,567.81。 “，”格式以美國(guó)格式返回x，插入逗號(hào)作為數(shù)字組分隔符，并使用句點(diǎn)作為小數(shù)點(diǎn)分隔符：

DHC-APP>SET x=1234567.81
 
DHC-APP>WRITE $FNUMBER(x,",")
1,234,567.81

下面的示例返回1.234.567,81。 “?！?/code> format以歐洲格式返回x，插入句點(diǎn)作為數(shù)字組分隔符，并插入逗號(hào)作為十進(jìn)制分隔符：

DHC-APP>SET x=1234567.81
 
DHC-APP>WRITE $FNUMBER(x,".")
1.234.567,81

DHC-APP>SET x=124329
 
DHC-APP>WRITE $FNUMBER(x,",",2)
124,329.00

DHC-APP>SET x=124329
 
DHC-APP>WRITE $FNUMBER(x,"",2)
124329.00

DHC-APP>SET x=.7799
 
DHC-APP>WRITE $FNUMBER(x,"",2)
0.78

/// d ##class(PHA.TEST.Function).FNUMBER2()
ClassMethod FNUMBER2()
{
    SET b=-.66
    WRITE " ：" _ $FNUMBER(b,""),!  
    WRITE "+：" _ $FNUMBER(b,"+"),! 
    WRITE "-：" _ $FNUMBER(b,"-"),! 
    WRITE "L：" _ $FNUMBER(b,"L"),!
    WRITE "T：" _ $FNUMBER(b,"T"),!
    WRITE "N：" _ $FNUMBER(b,"N"),!
    WRITE "E：" _ $FNUMBER(b,"E"),! 
    WRITE "D：" _ $FNUMBER(b,"D"),! 
    WRITE "G：" _ $FNUMBER(b,"G"),! 
    WRITE "O：" _ $FNUMBER(b,"O"),! 
    WRITE "P：" _ $FNUMBER(b,"P"),!
}

DHC-APP>d ##class(PHA.TEST.Function).FNUMBER2()
 ：-.66
+：-0.66
-：0.66
L：-.66
T：0.66-
N：-0.66
E：-6.600000E-01
D：-.66
G：-0.6600000
O：-0.66
P：(0.66)
 

/// d ##class(PHA.TEST.Function).FNUMBER3()
ClassMethod FNUMBER3()
{
    SET b=.66
    WRITE " ：" _ $FNUMBER(b,""),!  
    WRITE "+：" _ $FNUMBER(b,"+"),! 
    WRITE "-：" _ $FNUMBER(b,"-"),! 
    WRITE "L：" _ $FNUMBER(b,"L"),!
    WRITE "T：" _ $FNUMBER(b,"T"),!
    WRITE "N：" _ $FNUMBER(b,"N"),!
    WRITE "E：" _ $FNUMBER(b,"E"),! 
    WRITE "D：" _ $FNUMBER(b,"D"),! 
    WRITE "G：" _ $FNUMBER(b,"G"),! 
    WRITE "O：" _ $FNUMBER(b,"O"),! 
    WRITE "P：" _ $FNUMBER(b,"P"),!
}

DHC-APP>d ##class(PHA.TEST.Function).FNUMBER3()
 ：.66
+：+0.66
-：0.66
L：.66
T：0.66
N：0.66
E：6.600000E-01
D：.66
G：0.6600000
O：0.66
P： 0.66

DHC-APP>WRITE ##class(%SYS.NLS.Format).GetFormatItem("DecimalSeparator")
.

DHC-APP>WRITE ##class(%SYS.NLS.Format).GetFormatItem("NumericGroupSeparator"),!
,
 
DHC-APP>WRITE ##class(%SYS.NLS.Format).GetFormatItem("NumericGroupSize")
3
DHC-APP>

DHC-APP>WRITE ##class(%SYS.NLS.Format).GetFormatItem("PlusSign")
+
DHC-APP>WRITE ##class(%SYS.NLS.Format).GetFormatItem("MinusSign")
-