Posted on 2010-06-10 10:37
lxasp 阅读(955)
评论(1) 编辑 收藏 引用
Procedure.s cleanEten(r$)
v$=StringField(r$, 1,"e")
c$=StringField(r$, 2,"e")
v$=RemoveString(v$, ".")
cn=Val(c$)
If Abs(cn)>17
ProcedureReturn r$
EndIf
If cn<0
cn=Abs(cn)
vl$=Left(v$,1)
vr$=Mid(v$,2)
z$="0."+RSet("", cn-1, "0")
vo$=vl$+z$+vr$
Else
cn=cn+2
vl$=Left(v$,cn)
vr$=Mid(v$,cn+1)
vo$=vl$+"."+vr$
EndIf
l=Len(vo$)
For i=l To 1 Step -1
If Mid(vo$, i, 1)<>"0"
Break
EndIf
Next
vo$=Left(vo$,i)
If Right(vo$,1)="."
vo$=Left(vo$,Len(vo$)-1)
EndIf
ProcedureReturn vo$
EndProcedure