vb.net中小数取整 vb取小数点后两位函数

vb如何除一个数然后取整？最简单vb.net中小数取整的就是200\6
/是除vb.net中小数取整，\是整除
可以直接用函数来实现：
1、用CInt()函数的范围在-32,768 至 32,767vb.net中小数取整，对于小数部分四舍五入。
2、用Int（）函数和Fix（）函数都会删除参数的小数部份而返回剩下的整数，不同之处在于，如果参数为负数，则Int（）函数返回小于或等于参数的第一个负整数，而Fix（）函数则会返回大于或等于参数的第一个负整数。
扩展资料：
VB常用函数
【vb.net中小数取整 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.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.net 如何用format转换小数成整数直接用int就可以了。
int(2310.125)=2310
如果需要自定义格式输出,就要用tostring方法，比如：
2310.231.tostring("0")的结果就是2310 。
如果你要去掉个位数，看来只有（2310.231/10).tostring("0")了。
详细的ToString里面的参数，请看MSDN 。我查了一下，有，地址是：
VB取整函数有哪些？VB取整函数有哪些vb.net中小数取整？
━━━━━━━━━━━━━━━━━━━━━━━━━
Int、Fix 函数返回参数的整数部分。语法 Int(number) Fix(number) 必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Nullvb.net中小数取整，则返回 Null 。说明 Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。
Int 和 Fix 的不同之处在于vb.net中小数取整，如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8.4 转换成 -9 ，而 Fix 将 -8.4 转换成 -8 。
━━━━━━━━━━━━━━━━━━━━━━━━━
round——四舍五入
vb.net 输入一个小数求能得到这个商的最小的整数除数和最小整数被除数Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim s As String
Dim strs As String()
Dim fz,fm,n,m,t As Long
Console.Write("请输入一个小数：")
s=Console.ReadLine().Trim()
strs=s.Split("."C)
fz=CLng(strs(0))
fm=CLng(Math.Pow(10,strs(1).Length))
fz=fz*fm+CLng(strs(1))
n=fz
m=fm
While n Mod m0
t=n Mod m
n=m
m=t
End While
fz\=m
fm\=m
Console.WriteLine("{0}={1}/{2}",s,fz,fm)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub