去掉小数点后面的“0”

数据处理问题 | 2015-02-28 12:17:17 | 阅读 715 次 | 评论(0)
? quling(123.00)
? quling(123.100)
? quling(123.010)
function quling
Parameters lenum
lcnum=alltrim(padl(lenum,16," "))
do while right(lcnum,1)="0"
    lcnum=left(lcnum,len(lcnum)-1)
enddo
if len(justext(lcnum))=0
    lcnum=chrtran(lcnum,".","")
endif
return lcnum

-------------------------------- 作者在 2017-11-02 20:59:05 补充以下内容 --------------------------------

VFP9代码

ICASE(变量=0,"",INT(变量)=变量,TRANSFORM(变量),TRIM(TRANSFORM(变量),"0"))

文章评论,共0条
游客请输入验证码
浏览251811次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...