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

.版本 2.支持库 spec.子程序 _按钮1_被单击调试输出 (取小数点后第一位 (到小数 (编辑框1.内容))).子程序 取小数点后第一位,整数型.参数 取值小数,小数型.局部变量 临时分割,文本型,,"0".局部变量 临时文本,文本型....我想写一个小程序，需要过滤掉小数点前面数，只保留小数点后面第一位的数。请高手帮忙。提取这个数后还要和其他数进行乘法运算。不是已经给你实现了吗？取手机号码的后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)).判断结束返回 (返回整数)