vb.net进位函数的简单介绍

asp.net（vb.net)中进一法用什么函数？

直接似乎找不出方法，不过有一个绝招： Dim

创新互联公司从2013年成立，先为宛城等服务建站，宛城等地企业，进行企业商务咨询服务。为宛城企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

Double

2.1415

0.01

Console.WriteLine("{0:f2}",

a)首先先对要操作数组+0.0……1（若干个0，取决于保留的位数）。然后试用输出。在asp.net中，用string.Format("{0:f2}",输出数字);即可

VB.Net自带函数：

十进制转八进制：Oct(num)

十六进制转八进制：oct("H" num)

十进制转十六进制：hex(num)

八进制转十六进制：hex("O" num)

十六进制转换为十进制：CLng("H" num)

'自定义一个函数：功能是给小数直接进一位

'num 　要操作的小数

'n　保留几位小数，

Function getNumber(num As Double, n As Integer) As Double

Dim a As Double

a = Int(num * (10 ^ n)) / (10 ^ n)

If a = num Then

getNumber = a

Else

getNumber = a + 1 / (10 ^ n)

End If

End Function

-------------------------

调用一下：

Private Sub Command1_Click()

MsgBox (getNumber(3.1415926, 2))

End Sub

得到3.15

使用Math.Round()，注意返回值可能为Double或Decimal。

如果取整，第二个参数不填或者填0

默认采用四舍六入五成双，如果想四舍五入，请采用MidpointRounding.AwayFromZero作为第三个参数

Dim 数字 As Double = 2.45

Dim r1 As Double = Math.Round(数字, 1, MidpointRounding.ToEven) ' r1 = 2.4 四舍六入五成双

Dim r2 As Double = Math.Round(数字, 1, MidpointRounding.AwayFromZero) ' r2 = 2.5 四舍五入

网页标题：vb.net进位函数的简单介绍
文章出自：http://myzitong.com/article/dsgejgc.html