vb.net定义小数点 vb小数点后面的长度( 二 )


VB.net , 小数点直接进一位的函数?'自定义一个函数:功能是给小数直接进一位
'num要操作vb.net定义小数点的小数
'n 保留几位小数vb.net定义小数点,
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
【vb.net定义小数点 vb小数点后面的长度】Else
getNumber = a + 1 / (10 ^ n)
End If
End Function
-------------------------
调用一下:
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15
关于vb.net定义小数点和vb小数点后面的长度的介绍到此就结束了 , 不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

推荐阅读