锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net保留一位小数 vba保留一位小数

IT技术保留

VB.net ， 小数点直接进一位的函数?'自定义一个函数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
Else
getNumber = a + 1 / (10 ^ n)
End If
End Function
-------------------------
调用一下vb.net保留一位小数：
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15
VB 向上保留一位小数VB有Round()函数，但是是四舍五入，你的这个需要编写一个过程或函数：
Dim AA As String'模块级变量
Private Sub Command1_Click()
Dim XX As Single, YY As Single'过程级变量
XX = Val(Text1.Text)
If AA = "整数" Then
If XX / 1 - XX \ 1 = 0 Then'判断小数部分是否小于0.5
YY = Round(XX, 0) + 1
ElseIf XX / 1 - XX \ 10 Then'判断小数部分是否大于0.5
YY = Round(XX, 0)
End If
ElseIf AA = "小数" Then
If XX / 1 - XX \ 1 = 0 Then'判断小数部分是否小于0.5
YY = Round(XX, 1) + 0.1
ElseIf XX / 1 - XX \ 10 Then'判断小数部分是否大于0.5
YY = Round(XX, 1)
End If
End If
Text2.Text = YY
End Sub
Private Sub Form_Load()
Option1(0).Value = https://www.04ip.com/post/True
End Sub
Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = https://www.04ip.com/post/True Then
AA = "整数"
Else
AA = "小数"
End If
End Sub
VB.NET 怎么样保留后面的小数位'这一个题我有答过了 。可以看我回答的链接 。
'使用Format返回指定的格式
Dim Numd As Double = 66.6666666666
Label1.Text = Format(Numd , "#.#####") '#.# 可自定格式化显示长度 。
vb.net怎么设置数字保留小数点位数举个例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
结果为b = 2.00
四舍五入保留两位
【vb.net保留一位小数 vba保留一位小数】vb.net保留一位小数的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba保留一位小数、vb.net保留一位小数的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：winkawaks模拟器下载，winkawaks模拟器中文版

    下一篇：育碧ip代理地址，育碧ip代理地址怎么改