易语言取小数区间数，弥补易语言无法取小数的缺陷【原创首发】

撩唇笔

最近某项目要用到这个，发现易语言并没有这个功能，就自己模拟了一个，调用了精易

易语言取小数区间数，弥补易语言无法取小数的缺陷
回帖奖励！！！！！是没有的

完美取小数区间数.e (6.36 KB, 下载次数: 22)

2018-12-22 12:27 上传

点击文件名下载附件

下面是优化版，剔除原版bug

完美取小数区间数.e (23.72 KB, 下载次数: 13)

2018-12-22 22:21 上传

点击文件名下载附件

renxiawou

112333333333131

WWII

来看看吧 支持一下！！！！

青盏

谢谢分享~

grsyc

多谢分享啊！

lqd529009

顶一下顶一下顶一下顶一下

DJLJYO

DJLJYO 发表于 2018-12-23 02:03
各乘1000，取得后结果除1000

  

子程序名	返回值类型	公开	备 注
取小数区间随机数_	文本型		返回保留小数点后三位
参数名	类 型	参考	可空	数组	备 注
最小小数	文本型
最大小数	文本型

变量名	类 型	静态	数组	备 注
number	整数型
min	双精度小数型
max	双精度小数型
int	整数型

置随机数种子 ()
number ＝ 1
int ＝ 到整数 (最小小数)
min ＝ 到数值 (最小小数) － int
判断循环首 (min ＜ 1)
number ＝ number × 10
min ＝ min × 10
判断循环尾 ()
min ＝ min ＋ int × number
int ＝ 到整数 (最大小数)
max ＝ 到数值 (最大小数) － int
max ＝ int × number ＋ max × number
返回 (到文本 (取随机数 (到整数 (min), 到整数 (max)) ÷ number))

.版本 2<br /> <br /> .子程序 取小数区间随机数_, 文本型, , 返回保留小数点后三位<br /> .参数 最小小数, 文本型<br /> .参数 最大小数, 文本型<br /> .局部变量 number, 整数型<br /> .局部变量 min, 双精度小数型<br /> .局部变量 max, 双精度小数型<br /> .局部变量 int, 整数型<br /> <br /> 置随机数种子 ()<br /> number ＝ 1<br /> <br /> int ＝ 到整数 (最小小数)<br /> min ＝ 到数值 (最小小数) － int<br /> .判断循环首 (min ＜ 1)<br />     number ＝ number × 10<br />     min ＝ min × 10<br /> .判断循环尾 ()<br /> min ＝ min ＋ int × number<br /> <br /> int ＝ 到整数 (最大小数)<br /> max ＝ 到数值 (最大小数) － int<br /> max ＝ int × number ＋ max × number<br /> <br /> 返回 (到文本 (取随机数 (到整数 (min), 到整数 (max)) ÷ number))

DJLJYO

撩唇笔 发表于 2018-12-22 22:17
单单化整再取不够精确，比如0.001--0.01，这种精度的你怎么化

各乘1000，取得后结果除1000

精准引流系统

路过！！！！！！路过！！！！！！路过！！！！！！路过！！！！！！路过！！！！！！路过！！！！！！路过！！！！！！路过！！！！！！路过！！！！！！路过！！！！！！路过！！路过！！！！！！！！！！

撩唇笔

野狼666 发表于 2018-12-22 16:35
感谢大神指点

原版的精度不够，重新传了个高精度的，能去0.001-0.01以及更小区间的小数