文章目录
- 第142章 SQL函数 TO_CHAR（三）
- 数字到字符串示例
第142章 SQL函数 TO_CHAR（三）
数字到字符串示例
以下嵌入式 SQL 示例显示了基本的数字到字符串的转换：
/// d ##class(PHA.TEST.SQLFunction).ToChar3()
ClassMethod ToChar3()
{
&sql(
SELECT
TO_CHAR(1000,'9999'),
TO_CHAR(10,'9999')
INTO
:numfull,:numshort
)
if SQLCODE '= 0 {
w !,"Error code ",SQLCODE
} else {
w !,"Formatted number:",numfull
w !,"Formatted number:",numshort
w !,"Note leading blanks"
}
}DHC-APP>d ##class(PHA.TEST.SQLFunction).ToChar3()
Formatted number: 1000
Formatted number: 10
Note leading blank返回具有适当数量的前导空格的指定数字。无符号正数前面总是有一个空白字符。如果指定数字的位数少于格式参数，则提供额外的前导空格。
以下嵌入式 SQL 示例显示了分隔符的使用：
/// d ##class(PHA.TEST.SQLFunction).ToChar4()
ClassMethod ToChar4()
{
&sql(
SELECT
TO_CHAR(1000,'9,999.99'),
TO_CHAR(1000,'9G999D99')
INTO
:comma,:groupsep
)
if SQLCODE '= 0 {
w !,"Error code ",SQLCODE
} else {
w !,"Formatted number:",comma
w !,"Formatted number:",groupsep
w !,"Note leading blank"
}
}DHC-APP>d ##class(PHA.TEST.SQLFunction).ToChar4()
Formatted number: 1,000.00
Formatted number: 1,000.00
Note leading blank第一个 TO_CHAR 返回字符串'1,000.00';。第二个 TO_CHAR 也可能返回此值，但显示的分隔符取决于区域设置。
以下嵌入式 SQL 示例显示了正号和负号的使用：
/// d ##class(PHA.TEST.SQLFunction).ToChar5()
ClassMethod ToChar5()
{
&sql(
SELECT
TO_CHAR(10,'99.99'),
TO_CHAR(-10,'99.99'),
TO_CHAR(10,'S99.99'),
TO_CHAR(-10,'S99.99'),
TO_CHAR(10,'99.99S'),
TO_CHAR(-10,'99.99S')
INTO
:pos,:neg,:poslead,:neglead,:postrail,:negtrail
)
if SQLCODE '= 0 {
w !,"Error code ",SQLCODE
} else {
w !,"Formatted number:",pos
w !,"Formatted number:",neg
w !,"Formatted number:",poslead
w !,"Formatted number:",neglead
w !,"Formatted number:",postrail
w !,"Formatted number:",negtrail
w !,"Note use of leading blank"
}
}DHC-APP>d ##class(PHA.TEST.SQLFunction).ToChar5()
Formatted number: 10.00
Formatted number:-10.00
Formatted number:+10.00
Formatted number:-10.00
Formatted number:10.00+
Formatted number:10.00-
Note use of leading blank请注意，前导空格仅出现在没有符号格式的正数之前。无论符号的位置如何，负数或任何带符号的数字之前都不会出现前导空格。
以下嵌入式 SQL 示例显示了使用“FM”格式覆盖无符号正数的默认前导空白：
/// d ##class(PHA.TEST.SQLFunction).ToChar6()
ClassMethod ToChar6()
{
&sql(
SELECT
TO_CHAR(12345678.90,'99,999,999.99'),
TO_CHAR(12345678.90,'FM99,999,999.99')
INTO
:num,:fmnum
)
if SQLCODE '= 0 {
w !,"Error code ",SQLCODE
} else {
w !,"Formatted number:",num
w !,"Formatted number:",fmnum
w !,"Note leading blank"
}
}DHC-APP>d ##class(PHA.TEST.SQLFunction).ToChar6()
Formatted number: 12,345,678.90
Formatted number:12,345,678.90
Note leading blank以下嵌入式 SQL 示例显示了前导美元符号的使用：
/// d ##class(PHA.TEST.SQLFunction).ToChar7()
ClassMethod ToChar7()
{
&sql(
SELECT
TO_CHAR(1234567890,'$9G999G999G999'),
TO_CHAR(1234567890,'S$9G999G999G999'),
TO_CHAR(12345678.90,'$99G999G999D99')
INTO
:d,:sd,:dD
)
if SQLCODE '= 0 {
w !,"Error code ",SQLCODE
} else {
w !,"Formatted number:",d
w !,"Formatted number:",sd
w !,"Formatted number:",dD
w !,"Note leading blanks"
}
}DHC-APP> d ##class(PHA.TEST.SQLFunction).ToChar7()
Formatted number: $1,234,567,890
Formatted number:+$1,234,567,890
Formatted number: $12,345,678.90
Note leading blanks美元符号前面总是有一个符号或一个空白字符。
以下嵌入式 SQL 示例显示了当 format 参数包含的整数位数少于输入数值时会发生什么：
/// d ##class(PHA.TEST.SQLFunction).ToChar8()
ClassMethod ToChar8()
{
&sql(
SELECT
TO_CHAR(1234567.89,'9'),
TO_CHAR(1234567.89,'99'),
TO_CHAR(1234567.89,'99D99')
INTO :a,:b,:c
)
if SQLCODE '= 0 {
w !,"Error code ",SQLCODE
} else {
w !,"Formatted number:",a
w !,"Formatted number:",b
w !,"Formatted number:",c
}
}每个 TO_CHAR 分别返回一串井号：“##”、“###”和“######”。
DHC-APP> d ##class(PHA.TEST.SQLFunction).ToChar8()
Formatted number:##
Formatted number:###
Formatted number:######以下嵌入式 SQL 示例显示了当 format 参数包含的十进制（小数）位数少于输入数值表达式时会发生什么：
/// d ##class(PHA.TEST.SQLFunction).ToChar9()
ClassMethod ToChar9()
{
&sql(
SELECT
TO_CHAR(1234567.4999,'9999999.9'),
TO_CHAR(1234567.91,'9999999')
INTO :a,:b
)
if SQLCODE '= 0 {
w !,"Error code ",SQLCODE
} else {
w !,"Formatted number:",a
w !,"Formatted number:",b
}
}返回的数字分别四舍五入为“1234567.5”和“1234568”。
DHC-APP> d ##class(PHA.TEST.SQLFunction).ToChar9()
Formatted number: 1234567.5
Formatted number: 1234568
