? 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

VFP9代码

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