VFP 愛用者社區

[Ruey]

的零最後方法，現在暫且用這個吧！


修理小數點後的零最後方法，現在暫且用這個吧！
又把練手的東東找出來了！：）
高手另有方法請指點！

*取除小數點後無效資料後零的函數 TrimZero
*nTemp 傳入數字型參數
*nLen 傳入數字型參數的長度
*nFraction 傳入數字型參數的小數位的位數
*!* ?TrimZero(134.01511000,9,7)
*!* ?TrimZero(134.01510000,9,7)
*!* ?TrimZero(134.0,9,6)
*!* ?TrimZero(134,9,6)
*!* ?TrimZero( 10645.440,9,6)
*!* ?TrimZero(600,4,2)
Function TrimZero()
Para nTemp,nLen,nfraction
cTemp=Str(nTemp,nLen,nfraction)
N=Len(cTemp)
If At(".",cTemp)<>0
For i=1 To nLen
If Rat("0",cTemp)=N Or Rat(".",cTemp)=N
cTemp=Substr(cTemp,1,N-1)
N=Len(cTemp)
Endif
Endfor
Endif
Return Alltrim(cTemp)
Endif
Endfunc

網友介紹用這個方法？這個方法是要比我的簡單好多，但是後來我發現，如果資料為6000就會有錯！現在還沒有好的辦法解決！請高手出招！
strt(allt(strt(tran(85.020000),"0"," "))," ","0")

[garfield]

這是我用遞迴的方法做的程式
***************
func trimzero &&--去掉數字(已變成字串型態)右邊的0, 原則上填上空白, 除非傳來 mnospace=.T.
lpara mcnu, mnospace
local mret
if right( mcnu,1) = '0' and at('.' , mcnu)#0
mret = trimzero( left( mcnu, len(mcnu)-1 ) , mnospace )+ iif( mnospace, '', ' ')
else
mret = iif(right(mcnu,1)='.',left( mcnu, len(mcnu)-1 )+iif( mnospace, '', ' ') ,mcnu)
endif
return mret

[小桑•無痕]

這是我用迴圈做的程式

FUNCTION TrimZero1(nTemp,nLen,nFraction)
LOCAL cTemp,nLen
cTemp = ALLTRIM(STR(nTemp,nLen,nFraction))
nLen = LEN(cTemp)
DO WHILE RAT(".",cTemp) > 1 .AND. INLIST(SUBS(cTemp,nLen,1),"0",".")
nLen = nLen - 1
ENDDO
RETURN(LEFT(cTemp,nLen))
ENDFUNC