7,763
社区成员
发帖
与我相关
我的任务
分享如何将double类型数值以定点数方式显示？
请问：
我使用double数值处理数值位数较高时，系统自动以科学记数法显示那串数字，请问用什么函数或其他办法让它不出现E，而直接以定点的数值显示数据？
就像c++里可以用setiosflag(ios::fixed)的效果，谢谢！
我使用double数值处理数值位数较高时，系统自动以科学记数法显示那串数字，请问用什么函数或其他办法让它不出现E，而直接以定点的数值显示数据？
就像c++里可以用setiosflag(ios::fixed)的效果，谢谢！
...全文
请发表友善的回复…
发表回复
VbtoDelphi 2003-03-29
- 打赏
- 举报
zyl910(高三学习忙，在线时间：星期日20:00)
从哪里copy过来的，太占空间了，cut！
从哪里copy过来的，太占空间了，cut！
zyl910 2003-03-29
- 打赏
- 举报
……=Fomrat(floatnum, "###0.00000")
Format 函数
返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函数的语法具有下面几个部分：
部分 说明
expression 必要参数。任何有效的表达式。
format 可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek 可选参数。常数，表示一星期的第一天。
firstweekofyear 可选参数。常数，表示一年的第一周。
设置值
firstdayofweek 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。
vbFirstFourDays 2 从本年第一周开始，而此周至少有四天在本年中。
VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。
说明
格式化 作法
数字 使用预先定义的命名数值格式或创建用户自定义数值格式。
日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
日期和时间序数 使用日期和时间格式或数值格式。
字符串 创建自定义的字符串格式。
如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会。
用户自定义数值格式 (Format 函数)
下面表格标识了一些可用来创建用户自定义数值格式的字符：
字符 说明
无 显示没有格式的数值。
(0) 数字占位符。显示一位数字或是零。如果表达式在格式字符串中 0 的位置上有一位数字存在，那么就显示出来；否则，就以零显示。如果数值的位数少于格式表达式中零的位数（无论是小数点的左方或右方），那么就把前面或后面的零补足。如果数值的小数点右方位数多于格式表达式中小数点右面零的位数，那么就四舍五入到有零的位数的最后一位。如果数值的小数点左方位数多于格式表达式中小数点左面零的位数，那么多出的部分都要不加修饰地显示出来。
(#) 数字占位符。显示一位数字或什么都不显示。如果表达式在格式字符串中“#”的位置上有数字存在，那么就显示出来；否则，该位置就什么都不显示。
此符号的工作原理和“0”数字占位符大致相同，不同之处只有在当表达式中数值的位数少于“#”的位数（无论是小数点左方或右方）时，不会把前面或后面的零显示出来。
(.) 小数点占位符。在一些国别是用逗号来当小数点的。小数点占位符用来决定在小数点左右可显示多少位数。如果格式表达式在此符号左边只有正负号，那么小于 1 的数字将以小数点为开头。如想在小数前有“0”的话，那么请在小数点占位符前加上“0”这个数字占位符。小数点占位符的实际字符在格式输出时要看系统的数字格式而定。
(%) 百分比符号占位符。表达式乘以 100。而百分比字符 (%) 会插入到格式字符串中出现的位置上。
(,) 千分位符号占位符。在一些国别，是用句点来当千位符号。千位符号主要是把数值小数点左边超过四位数以上分出千位。如果格式中在数字占位符（0 或 #）周围包含有千分位符号，则指定的是标准的千分位符号使用法。两个邻近的千分位符号或一个千分位符号紧接在小数点左边（不管小数位是否指定），其意思为“将数值除以 1000，按需要四舍五入”。例如，可以用格式字符串 "##0,," 将 1 亿表示成 100。数值小于 1 百万的话表示成“0”，两个邻近的千分位符号除了紧接在小数点左边以外，在任何位置出现时均简单地视为指定了使用千分位符号。小数点占位符的真正字符在格式输出时，需视系统识别的数字格式而定。
(:) 时间分隔符。在一些国别，可能用其他符号来当时间分隔符。在格式化时间值时，时间分隔符可以用来分隔时、分和秒。时间分隔符的真正字符在格式输出时，取决于系统的设置。
(/) 日期分隔符。在一些国别，可能用其他符号来当日期分隔符。在格式化日期数值时，日期分隔符可以用来分隔年、月、日。日期分隔符的真正字符在格式输出时，取决于系统设置。
(E- E+ e- e+) 科学格式。如果格式表达式在 E-、E+、e- 或 e+ 的右方含有至少一个数字占位符（0 或 #），那么数值将表示成科学格式，而 E 或 e 会被安置在数字和指数之间。E 或 e 右方数字占位符的个数取决于指数位数。使用 E- 或 e- 时，会用减号来表示负的乘幂。使用 E+ 或 e+ 时，会用减号来表示负的乘幂并用加号来表示正的乘幂。
- + $ ( ) 显示一个原义字符。如想显示那些列出的字符之外的字符时，可以用反斜杠 ( \ ) 字符作前缀或以双引号 (" ") 括起来。
(\) 将格式字符串中下一个字符显示出来。如想显示一作为原义字符并有特殊含义的字符，可将此字符置于反斜杠 (\) 之后。反斜杠本身并不会显示出来。而使用反斜杠 (\) 的效果和使用双引号是一样的。如想显示反斜杠字符，可使用两个反斜杠 (\\)。
那些不能显示为原义字符的字符是日期格式字符和时间格式字符（a, c, d, h, m, n, p, q, s, t, w, y, / 和 :）、数值格式字符（#, 0, %, E, e, 逗点和句点）和字符串格式字符（@, &, <, > 和 !）。
("ABC") 显示双引号 (" ") 之内的字符串。如在代码中想在 format 中包含一个字符串，必须用 Chr(34) 将文本括起来（34 为双引号 (") 的字符代码）。
Format 函数
返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函数的语法具有下面几个部分：
部分 说明
expression 必要参数。任何有效的表达式。
format 可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek 可选参数。常数，表示一星期的第一天。
firstweekofyear 可选参数。常数，表示一年的第一周。
设置值
firstdayofweek 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。
vbFirstFourDays 2 从本年第一周开始，而此周至少有四天在本年中。
VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。
说明
格式化 作法
数字 使用预先定义的命名数值格式或创建用户自定义数值格式。
日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
日期和时间序数 使用日期和时间格式或数值格式。
字符串 创建自定义的字符串格式。
如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会。
用户自定义数值格式 (Format 函数)
下面表格标识了一些可用来创建用户自定义数值格式的字符：
字符 说明
无 显示没有格式的数值。
(0) 数字占位符。显示一位数字或是零。如果表达式在格式字符串中 0 的位置上有一位数字存在，那么就显示出来；否则，就以零显示。如果数值的位数少于格式表达式中零的位数（无论是小数点的左方或右方），那么就把前面或后面的零补足。如果数值的小数点右方位数多于格式表达式中小数点右面零的位数，那么就四舍五入到有零的位数的最后一位。如果数值的小数点左方位数多于格式表达式中小数点左面零的位数，那么多出的部分都要不加修饰地显示出来。
(#) 数字占位符。显示一位数字或什么都不显示。如果表达式在格式字符串中“#”的位置上有数字存在，那么就显示出来；否则，该位置就什么都不显示。
此符号的工作原理和“0”数字占位符大致相同，不同之处只有在当表达式中数值的位数少于“#”的位数（无论是小数点左方或右方）时，不会把前面或后面的零显示出来。
(.) 小数点占位符。在一些国别是用逗号来当小数点的。小数点占位符用来决定在小数点左右可显示多少位数。如果格式表达式在此符号左边只有正负号，那么小于 1 的数字将以小数点为开头。如想在小数前有“0”的话，那么请在小数点占位符前加上“0”这个数字占位符。小数点占位符的实际字符在格式输出时要看系统的数字格式而定。
(%) 百分比符号占位符。表达式乘以 100。而百分比字符 (%) 会插入到格式字符串中出现的位置上。
(,) 千分位符号占位符。在一些国别，是用句点来当千位符号。千位符号主要是把数值小数点左边超过四位数以上分出千位。如果格式中在数字占位符（0 或 #）周围包含有千分位符号，则指定的是标准的千分位符号使用法。两个邻近的千分位符号或一个千分位符号紧接在小数点左边（不管小数位是否指定），其意思为“将数值除以 1000，按需要四舍五入”。例如，可以用格式字符串 "##0,," 将 1 亿表示成 100。数值小于 1 百万的话表示成“0”，两个邻近的千分位符号除了紧接在小数点左边以外，在任何位置出现时均简单地视为指定了使用千分位符号。小数点占位符的真正字符在格式输出时，需视系统识别的数字格式而定。
(:) 时间分隔符。在一些国别，可能用其他符号来当时间分隔符。在格式化时间值时，时间分隔符可以用来分隔时、分和秒。时间分隔符的真正字符在格式输出时，取决于系统的设置。
(/) 日期分隔符。在一些国别，可能用其他符号来当日期分隔符。在格式化日期数值时，日期分隔符可以用来分隔年、月、日。日期分隔符的真正字符在格式输出时，取决于系统设置。
(E- E+ e- e+) 科学格式。如果格式表达式在 E-、E+、e- 或 e+ 的右方含有至少一个数字占位符（0 或 #），那么数值将表示成科学格式，而 E 或 e 会被安置在数字和指数之间。E 或 e 右方数字占位符的个数取决于指数位数。使用 E- 或 e- 时，会用减号来表示负的乘幂。使用 E+ 或 e+ 时，会用减号来表示负的乘幂并用加号来表示正的乘幂。
- + $ ( ) 显示一个原义字符。如想显示那些列出的字符之外的字符时，可以用反斜杠 ( \ ) 字符作前缀或以双引号 (" ") 括起来。
(\) 将格式字符串中下一个字符显示出来。如想显示一作为原义字符并有特殊含义的字符，可将此字符置于反斜杠 (\) 之后。反斜杠本身并不会显示出来。而使用反斜杠 (\) 的效果和使用双引号是一样的。如想显示反斜杠字符，可使用两个反斜杠 (\\)。
那些不能显示为原义字符的字符是日期格式字符和时间格式字符（a, c, d, h, m, n, p, q, s, t, w, y, / 和 :）、数值格式字符（#, 0, %, E, e, 逗点和句点）和字符串格式字符（@, &, <, > 和 !）。
("ABC") 显示双引号 (" ") 之内的字符串。如在代码中想在 format 中包含一个字符串，必须用 Chr(34) 将文本括起来（34 为双引号 (") 的字符代码）。
落伍者 2003-03-29
- 打赏
- 举报
Private Sub Command1_Click()
Dim x As Double
x = 1.23456789012334E+20
Debug.Print Format(x, "###.#####################")
End Sub
结果：123456789012334000000.
Private Sub Command1_Click()
Dim x As Double
x = 1.23456789012334E+20
Debug.Print x
End Sub
结果： 1.23456789012334E+20
Dim x As Double
x = 1.23456789012334E+20
Debug.Print Format(x, "###.#####################")
End Sub
结果：123456789012334000000.
Private Sub Command1_Click()
Dim x As Double
x = 1.23456789012334E+20
Debug.Print x
End Sub
结果： 1.23456789012334E+20
yongtang 2003-03-29
- 打赏
- 举报
用str()函数吗？可是转换出来的string还是带有科学记数法的一串啊。我希望能够得到一个完全显示的数值或字符串，不用科学记数法来表示的串。
northwolves 2003-03-29
- 打赏
- 举报
use string to show it
yongtang 2003-03-29
- 打赏
- 举报
我明白了，非常感谢大家！
