浮点型转整型

来源:互联网 发布:易特进销存软件 编辑:程序博客网 时间:2024/05/01 12:35

        一直以来csdn对我帮助太多了,我没有什么好回报,深感愧疚。今天恰好有个关于数据类型转换的问题,说出来分享一下。

 今天朋友编一个程序遇到要把浮点型数据转换为整型需要把小数部分进一。比如1.234经转换等于2。 我查了很多地方都没有很好的解答。终于发现int函数与fix函数在转换中的区别,当数据为正时他俩没区别,但当数据为负时int函数就凸现区别了。

       例如:int(1.323)=1,fix(1.323)=1

                int(-1.323)=-2,fix(1.323)=-1

根据以上特性我写了下面代码:  (为了看着清晰代码写的有点啰嗦,呵呵!)

 

Dim a, b As Integer
        Dim c, d, s As Double   定义双精度数据类型...这不是必须的只要是浮点型就能说明问题

        a = 7         '这里是初始化

        b = 3
        c = a / b    '7除3那肯定是浮点型啦!
        d = -c        '这一步,很重要的哦!
        s = Int(d)   '用运int特性
        a = Math.Abs(s)    '用abs函数取绝对值,在vb.net里要加上math才有abs函数哟!
        Response.Write(a)  '输出值3

至此就完成了功能,这样不必进行判断也能很方便的转换。