VFP 9.0 下,程序解决
n=123.40000
?ctransform(n)
RETURN
FUNCTION ctransform
LPARAMETERS nInput
LOCAL lcInput
lcInput=TRANSFORM(nInput)
DO WHILE '.'$lcInput AND RIGHT(lcInput,1)$'.0'
lcInput=LEFT(lcInput,LEN(lcInput)-1)
ENDDO
RETURN lcInput
n=123.40000
?ctransform(n)
RETURN
FUNCTION ctransform
LPARAMETERS nInput
LOCAL lcInput
lcInput=TRANSFORM(nInput)
DO WHILE '.'$lcInput AND RIGHT(lcInput,1)$'.0'
lcInput=LEFT(lcInput,LEN(lcInput)-1)
ENDDO
RETURN lcInput
感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@