VFP6用自定义函数

PARAMETERS m._char

m._char = IIF("." $ m._char, RTRIM(m._char, "0"), m._char)

IF RIGHT(m._char, 1) = "."        && 去掉最后一个“.”
    m._char = STRTRAN(m._char, ".", "")
ENDIF

RETURN m._char

此处的RTRIM()应该是VFP9中的吧

上传相关文件吧

VFP6支持

m._char = IIF("." $ m._char, RTRIM(m._char, "0"), m._char)

做个函数吧

FUNCTION MRtrim
LPARAMETERS Pnum
LOCAL xchr,ii
xchr = TRANSFORM(Pnum)
IF AT('.',xchr)=0
    RETURN xchr
ENDIF

DO WHILE RIGHT(xchr,1)='0'
    xchr = LEFT(xchr,LEN(xchr)-1)
ENDFOR
IF RIGHT(xchr,1)='.'
    xchr = LEFT(xchr,LEN(xchr)-1)
ENDIF
RETURN xchr

[此贴子已经被作者于2023-7-22 08:07编辑过]

先要确定浮点数计算精度，如：
?str(8.002,20,18)
显示：8.002000000000001000
去掉后面的0：8.002000000000001

a=8.00002000
ALLTRIM(transform(a),'0')
以上这个方式去写应该是可以的

搞定了
换了VF9 直接就OK   VF6有BUG
感谢!

统一回复
搞定了
换了VF9 直接就OK   VF6有BUG
感谢!