保留两位小数的一般方法是四舍五入法。
创新互联专注于秀山土家族苗族网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供秀山土家族苗族营销型网站建设，秀山土家族苗族网站制作、秀山土家族苗族网页设计、秀山土家族苗族网站官网定制、小程序开发服务，打造秀山土家族苗族网络公司原创品牌,更为您提供秀山土家族苗族网站排名全网营销落地服务。
保留两位小数，看千分位。是4或比4小舍去；是5或比5大舍去以后向前一位进1。
如：3.425保留两位小数就是3.43
3.421保留两位小数就是3.42
又如： 3.4263保留两位小数就是3.43
3.4233保留两位小数就是3.42
再如：3.4保留两位小数就是3.40
方法一：
用Round函数，语法 ：
ROUND(number,num_digits)
Number 需要进行四舍五入的数字。 Num_digits 指定的位数,按此位数进行四舍五入。
示例：
'Round(需要修改的数字,小数位数)
Print Round(3.1415926, 3)
显示：3.142
方法二：
用Format函数，返回Variant(String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
Format函数的语法具有下面几个部分：
示例：
'Round(需要修改的数字,小数位数)
Print format (3.1415926, "#,###")
显示：3.142
方法三：
1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上新建一个Command控件；
3、双击Command1控件，进入代码编辑界面，输入代码：
Private Sub Command1_Click()
Dim res As Double
res = Format(1 / 3, "0.000")
Print res;
End Sub
4、运行工程，单击按钮，可以看到数据被保留三位小数；
5、总结，想要保留几位小数，直接设置即可，如想设置保留5位小数，设置如下：
format(1/3,"0.00000")
使用VB提供的取子串函数Mid(S,k,n)；
函数Mid(S,k,n)的功能，从指定的字符串表达式S的第k位开始取连续的n个字符。
例如：S = "1234567890"，Mid(S,1,3) ，返回"123"
例如：S = "1234567890"，Mid(S,3,7) ，返回"3456789"
等等；
结合VB的IF语句，就可以实现你的要求；
If Mid("1234567890",1,3) = "123" Then
MsgBox("正确")
Else
MsgBox("错误")
End If
举个例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
结果为b = 2.00
四舍五入保留两位
用这个函数把
Math.Round 方法 (Decimal, Int32)
将小数值舍入到指定精度。
命名空间： System
程序集： mscorlib（在 mscorlib.dll 中）
语法
Visual Basic（用法）
Dim d As Decimal
Dim decimals As Integer
Dim returnValue As Decimal
returnValue = Math.Round(d, decimals)
参数
d
类型：System.Decimal
要舍入的小数。
decimals
类型：System.Int32
返回值中的小数位数（精度）。
返回值
类型：System.Decimal
精度等于 decimals，最接近 d 的数字。
Math.Round(3.4666666, 4) 结果是 3.4667.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Short = Date.Now.Month
Dim b As Short = Date.Now.Day
MessageBox.Show(a)
MessageBox.Show(b)
End Sub
上面是获取月份以及天数
'======================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Short = Date.Now.Month
Dim b As Short = Date.Now.Day
Dim c, d As String
If a 0 AndAlso a 10 Then
c = "1位数"
Else
c = "2位数"
End If
If b 0 AndAlso b 10 Then
d = "1位数"
Else
d = "2位数"
End If
MessageBox.Show(c)
MessageBox.Show(d)
End Sub
这个是获取位数的