vb.net取整数部分 vb除法取整数

vb.net有没有向上取整的函数

不是函数，是使用Math类的Ceiling方法

创新互联是一家专业从事成都网站建设、网站设计的网络公司。作为专业网络公司,创新互联依托的技术实力、以及多年的网站运营经验,为您提供专业的成都网站建设、成都全网营销及网站设计开发服务！

Dim MyNumber As Double = 2.000000001

MsgBox(Math.Ceiling(MyNumber))

在vb.net中，cint（）和int（）有什么区别？

cint()会四舍五入进它最接近的偶数，当小数部分大于0.5时，取其左右整数部分的偶数值。当小数部分小于0.5时，取整

int()直接取整数，舍弃小数部分。

如

Cint(0.5)=0,Cint(1.5)=2,Cint(1.2)=1,Cint(3.3)=3

Int(0.5)=0,Int(1.5)=1,Int(1.2)=1,Int(3.3)=3

关于VB.net取整的问题

double是双精度有效数值位52位表示成指数的形式即指数11位即表示成

所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101

即

180.89305在double中存在的实际数值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小数点后 52位有效值后等于10进制的180.893049999999998

所及加最后变成了 1808930.99999999998

第一次当然输出近似值1808931

第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入所以少了1

vb如何除一个数然后取整？

最简单的就是200\6

/是除，\是整除

可以直接用函数来实现：

1、用CInt()函数的范围在-32,768 至 32,767，对于小数部分四舍五入。

2、用Int（）函数和Fix（）函数都会删除参数的小数部份而返回剩下的整数，不同之处在于，如果参数为负数，则Int（）函数返回小于或等于参数的第一个负整数，而Fix（）函数则会返回大于或等于参数的第一个负整数。

扩展资料：

VB常用函数

1、Time

返回系统时钟的当前时间。

2、Date

返回系统时钟的当前日期。

3、Now

返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。

4、Hour(Time)

返回指定时间的小时部分（0到23）。

5、Minute(Time)

返回指定时间的分钟部分（0到59）。

6、Second(Time)

返回指定时间的秒部分（0到59）。

7、Day(Date)

返回月份中的日期数（1到31）。

参考资料来源：百度百科- Visual Basic

vb取整数部分取小数部分代码

Option Explicit

Private Type qx

zs As Long

xs As Single

End Type

Private Sub Command1_Click()

Call xs(100.365)

End Sub

Function xs(a As String)

Dim i As Integer, xx As qx

i = InStr(1, a, ".")

xx.xs = Mid(a, i, Len(a) - i + 1)

xx.zs = Mid(a, 1, i - 1)

Print a + " 整数部分" + CStr(xx.zs) + "小数部分" + CStr(xx.xs)

End Function