VB中把double型的转换为指定格式的字符串

我有个double型的变量,比方说叫pi,值为3.14159265359
我想把它转换成 只保留小数点后3位 的字符串,该怎么做呢?
那如何转换成包含三位有效数字的呢?

Round(pi,3),Round()函数是按指定位数进行四舍五入的函数,你的 3.14159265359 数据经函数处理后,是 3.142;

Fromat(pi,"#0.000") ,Fromat() 函数是格式化函数,它可以对数字数据、日期数据进行格式化处理,但是它不会进行四舍五入的处理,它的格式化是按照指定的格式进行格式化的,在Fromat(pi,"#0.000")这里指定的格式就是"#0.000",表示格式化到小数点后三位。你的 3.14159265359 数据经函数处理后,是 3.141;

具体做法:
pi=Round(pi,3) 或
pi=Fromat(pi,"#0.000")
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-02-01
转字符串:s=str(format(pi,"0.000"))
保留3为有效数字:n=round(pi,2)
第2个回答  2010-02-01
round(pi,3)
或 fromat(pi,"#0.000")

VB中把double型的转换为指定格式的字符串
pi=Round(pi,3) 或 pi=Fromat(pi,"#0.000")

vb中将double型数值转化成字符串
CStr()函数

您好vb中将一个double数转化为string不会丢失精度么?
VB中将一个Double数转化为String不会丢失精度,但会增加储存空间。Double(双精度浮点型)变量存储为 IEEE 64 位(8 个字节)浮点数值的形式,它的范围在负数的时候是从 -1.79769313486232E308 到 -4.94065645841247E-324,而正数的时候是从 4.94065645841247E-324 到 1.79769313486232E308。Double 的...

VB中,布尔类型和数值型如何转换?
P=CDbl(X) ' 将X转换为"双精度"(Double)类型 P=CInt(X) ' 将X转换为"整型"(Integer)类型 P=CLng(X) ' 将X转换为"长整型"(Long)类型 P=CSng(X) ' 将X转换为"单精度"(Single)类型 P=CStr(X) ' 将X转换为"字符串"(String)类型 P=Cvar(X) ' 将X转换为"变体型"(Varia...

vb 怎么把数字型换成文本型
VB6.0使用CStr 函数将一数值转换为 String(文本型)。CStr 函数示例:Dim MyDouble, MyString MyDouble = 437.324 ' MyDouble 为 Double 类型。MyString = CStr(MyDouble) ' MyString 的内容为“437.324”。

怎么把double型的转换成Long型的
用vb.net写的话就是这样 dim x as double=0.11111 dim y as int64=0 y=convert.toint64(x)c#也差不多,稍微转换一下语法就是!

用vb编制不同数制间的转换。要求提供输入输出界面,当输入完一个任意的...
ByVal IntegerPart As Long, ByVal DecimalPart As Double) As String Dim r As Integer, strIntegerPart As String, q As Integer, strDecimalPart As String Do r = IntegerPart Mod CarrySystem IntegerPart = IntegerPart \\ CarrySystem strIntegerPart = CharacterCode(r)...

VB6.0中的各个数据类型之间的转换是怎么转的?
CStr String 依据 expression 参数返回 Cstr。CVar Variant 若为数值,则范围与 Double 相同;若不为数值,则范围与 String 相同。说明 如果传递给函数的 expression 超过转换目标数据类型的范围,将发生错误。通常,在编码时可以使用数据类型转换函数,来体现某些操作的结果应该表示为特定的数据类型,而不是...

关于一VB代码请问大神,转换数字为大写的代码老是不对,请帮忙改正,谢谢...
strbig(1) = "壹"strbig(2) = "贰"strbig(3) = "叁"strbig(4) = "肆"strbig(5) = "伍"strbig(6) = "陆"strbig(7) = "柒"strbig(8) = "捌"strbig(9) = "玖" '将double型参数m1转换为字符串型 strm1 = Trim(Str(m1))strtemp = "" '开始数字转换 For i = 1 ...

用VB把数字转成中文字符串
Function GetChinaNum(otherNum As Double Optional isRMB As Boolean Optional numOption As Boolean Optional dotNum As Integer) As String On Error Resume Next num = Trim(Str(Int(otherNum)))If isRMB Then numwei = 拾佰仟万拾佰仟亿拾佰仟 numshu = 零壹贰三肆伍陆柒捌玖拾 ...

相似回答