易语言小数转整数进一

小数转整数进一

如:如:1.1转换后为2,0.1或0.6转为1。 无论小数后面是多少都进1 但是整数进来也会加1

源码

.版本 2

.子程序 小数进整数, 小数型, 公开, 如:1.1转换后为2。 无论小数后面是多少都进1 整数进来也会加1
.参数 小数, 小数型
.局部变量 a, 整数型
.局部变量 b, 小数型

b = 到小数 (小数)
.判断开始 (a = b ÷ 1 = 真)
  a = b
  返回 (0)
.默认
  a = b + 1
  返回 (a)