在VisualBasic6.0中实现0.5数值修约

  • Post author:
  • Post category:其他


今天在编程的过程中,需要实现0.5数值修约,想了很长时间,总算研究出来了!

要求将计算结果进行0.5数值修约,并且保留一位小数。具体实现过程是这样的:首先将需要修约的数值保留两位小数,然后乘以2,保留为整数,最后再除以2,保留1位小数。这样就达到了目的。

代码如下:

Text2.Text = Format(Round(Format(Text1.Text, “0.00”) * 2, 0) / 2, “0.0”)



版权声明:本文为ESunshine1985原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。