易语言如何取小数点后面的第一位,其余的过滤掉?

易语言如何取小数点后面的第一位,其余的过滤掉?
我想写一个小程序，需要过滤掉小数点前面数，只保留小数点后面第一位的数。请高手帮忙。

.版本 2
.支持库 spec
.子程序 _按钮1_被单击
调试输出 (取小数点后第一位 (到小数 (编辑框1.内容)))
.子程序 取小数点后第一位,整数型
.参数 取值小数,小数型
.局部变量 临时分割,文本型,,"0"
.局部变量 临时文本,文本型
.局部变量 返回整数,整数型
临时文本 ＝ 到文本 (取值小数)
.判断开始 (寻找文本 (临时文本,“.”,,假) ＝ -1)
返回整数 ＝ 0
.默认
临时分割 ＝ 分割文本 (到文本 (取值小数),“.”,)
返回整数 ＝ 到整数 (取文本左边 (临时分割 [2],1))
.判断结束
返回 (返回整数)
再问： 我想写一个小程序，需要过滤掉小数点前面数，只保留小数点后面第一位的数。请高手帮忙。提取这个数后还要和其他数进行乘法运算。
再答： 不是已经给你实现了吗？
再问： 取手机号码的后4位，然后除以80，得到一个数字，取该数字的小数位再乘以80，最后得出的数，查下面的附表，即得之。 例：136****3456 后4位是3456，3456/80=43.2，去掉整数位43，得到0.2，再乘以80得到16 本人初学易语言，请高手给写个程序作为我的参考行吗？上面就是题目。
再答： 把下面的编译成模块，不会的就留个邮箱： ---------------------------------------------------------------------- .版本 2 .支持库 spec .程序集 后四位倍数 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。 调试输出 (后四位倍数 (“13123456789”)) .子程序 后四位倍数, 整数型, 公开 .参数 手机号码, 文本型 .局部变量 返回整数, 整数型 .局部变量 后四位, 整数型 .判断开始 (取文本长度 (手机号码) ≠ 11) 返回整数 ＝ 0 .默认 后四位 ＝ 到整数 (取文本右边 (手机号码, 4)) 返回整数 ＝ 取小数点后第一位 (后四位 ÷ 80) × 80 .判断结束 返回 (返回整数) .子程序 取小数点后第一位, 整数型 .参数 取值小数, 小数型 .局部变量 临时分割, 文本型, , "0" .局部变量 临时文本, 文本型 .局部变量 返回整数, 整数型 临时文本 ＝ 到文本 (取值小数) .判断开始 (寻找文本 (临时文本, “.”, , 假) ＝ -1) 返回整数 ＝ 0 .默认 临时分割 ＝ 分割文本 (到文本 (取值小数), “.”, ) 返回整数 ＝ 到整数 (取文本左边 (临时分割 [2], 1)) .判断结束 返回 (返回整数)