在VB中,round采用的是四舍六入,用起来不理想,formatnumber对于负数处理不好,所以自己写了一个小函数,解决了这个问题,需要的拿去用吧.