建一个函数 参数为as_txt
decimal{1} ld_txt
if not isnumber(as_txt) then
return as_txt
end if
as_txt=string(round(dec(as_txt),1))
if integer(right(as_txt,1))<5 then
return mid(as_txt,1,len(as_txt) - 2)
else
as_txt=string(dec(as_txt)+1)
return mid(as_txt,1,len(as_txt) - 2)
end if