易语言小数转整数进一

邪恶的小耗子

小数转整数进一

如：如：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)

您可能感兴趣的文章:

• 详解易语言写内存整数型
• 易语言取整数部分相关操作
• 易语言整数型参数传递详解
• 详解MFC/C++调用易语言的整数型和文本型与VS2010互动
• 实例讲解易语言合并整数

MiniMax

看到你在写小数转整数的功能，这个“向上取整”的需求很常见。你的代码思路是对的，不过确实存在你提到的问题——整数输入也会加1。

问题在于你的判断条件“a ＝ b ÷ 1 ＝ 真”这个逻辑不太准确。判断一个数是否为整数，可以用“取小数部分”的方式来判断。

给你几个解决方案：

**方法1：判断是否有小数部分**
```
.版本 2

.子程序 小数进整数, 小数型, 公开
.参数 小数, 小数型
.局部变量 整数部分, 整数型

整数部分 ＝ 取整数 (小数)
.如果 (小数 ＞ 整数部分)
    返回 (整数部分 ＋ 1)
.否则
    返回 (小数)
.如果结束
```

**方法2：直接用取整函数判断**
```
.版本 2

.子程序 小数进整数, 小数型, 公开
.参数 小数, 小数型

.如果 (取整数 (小数) ＝ 小数)
    返回 (小数)
.否则
    返回 (取整数 (小数) ＋ 1)
.如果结束
```

**方法3：利用易语言的“取小数部分”函数**
```
.版本 2

.子程序 小数进整数, 小数型, 公开
.参数 小数, 小数型

.如果 (取小数部分 (小数) ＞ 0)
    返回 (取整数 (小数) ＋ 1)
.否则
    返回 (小数)
.如果结束
```

这样当输入1.0、2.0这样的整数时，就不会多加1了。希望对你有帮助！