一个取小数点后面几位的源码分享

hack_koko

  

子程序名	返回值类型	公开	备 注
取小数点后面位数	整数型
参数名	类 型	参考	可空	数组	备 注
数	文本型				输入一个文本型数值

变量名	类 型	静态	数组	备 注
长度	整数型

判断 (寻找文本 (数, “.”, , 假) ＝ -1)
返回 (0)
长度 ＝ 取文本长度 (文本_取出中间文本 (数 ＋ “#”, “.”, “#”, ))
返回 (长度)

.版本 2<br /> <br /> .子程序 取小数点后面位数, 整数型<br /> .参数 数, 文本型, , 输入一个文本型数值<br /> .局部变量 长度, 整数型<br /> <br /> .判断开始 (寻找文本 (数, “.”, , 假) ＝ -1)<br />     返回 (0)<br /> .默认<br />     长度 ＝ 取文本长度 (文本_取出中间文本 (数 ＋ “#”, “.”, “#”, ))<br />     返回 (长度)

夏亿

感谢分享

xkAnd

很赞同，谢谢你的精彩分享！

qqmqqg

6666666666666666666666

1184798949

感谢分享

Hoibben

这玩意儿不严谨吧 如果是数字的文本内部也没啥判断 如果是其他字符也包含则无所谓~
而且 既然是取后面的不应该是从后往前找点吗~
回到刚开始说的如果是包含非数字的字符还得考虑多个点的问题啊 从前面找肯定是错误的~
还套个文本_取出中间文本 简单的东西复杂化了啊~

KD飞飞

调试输出（四舍五入（3.1415926535,2））

笨来无一悟

  

子程序名	返回值类型	公开	备 注
小数位数	整数型		仅 0 - 9 .
参数名	类 型	参考	可空	数组	备 注
小数文本	文本型

置入代码 ({ 139, 85, 8, 139, 18, 133, 210, 116, 30, 49, 201, 49, 192, 66, 128, 58, 46, 116, 7, 128, 58, 0, 116, 15, 235, 243, 64, 128, 58, 46, 15, 68, 193, 66, 128, 58, 0, 117, 243, 201, 194, 4, 0 })
' MOV EDX,[EBP+8]
' MOV EDX,[EDX]
' TEST EDX,EDX
' JE 完
' XOR ECX,ECX
' XOR EAX,EAX
' 点:
' INC EDX
' CMP BYTE [EDX],46
' JE 尾
' CMP BYTE [EDX],0
' JE 完
' JMP 点
' 尾:
' INC EAX
' CMP BYTE [EDX],46
' CMOVE EAX,ECX
' INC EDX
' CMP BYTE [EDX],0
' JNE 尾
' 完:
' LEAVE
' RET 4
返回 (0)

.版本 2<br /> <br /> .子程序 小数位数, 整数型, , 仅 0 - 9 .<br /> .参数 小数文本, 文本型<br /> <br /> 置入代码 ({ 139, 85, 8, 139, 18, 133, 210, 116, 30, 49, 201, 49, 192, 66, 128, 58, 46, 116, 7, 128, 58, 0, 116, 15, 235, 243, 64, 128, 58, 46, 15, 68, 193, 66, 128, 58, 0, 117, 243, 201, 194, 4, 0 })<br /> ' MOV EDX,[EBP+8]<br /> ' MOV EDX,[EDX]<br /> ' TEST EDX,EDX<br /> ' JE 完<br /> ' XOR ECX,ECX<br /> ' XOR EAX,EAX<br /> ' 点:<br /> ' INC EDX<br /> ' CMP BYTE [EDX],46<br /> ' JE 尾<br /> ' CMP BYTE [EDX],0<br /> ' JE 完<br /> ' JMP 点<br /> ' 尾:<br /> ' INC EAX<br /> ' CMP BYTE [EDX],46<br /> ' CMOVE EAX,ECX<br /> ' INC EDX<br /> ' CMP BYTE [EDX],0<br /> ' JNE 尾<br /> ' 完:<br /> ' LEAVE<br /> ' RET 4<br /> 返回 (0)

2wEn

四舍五入 了解一下

笨来无一悟

大哥 你敲完亲自跑了一下吗