以下是引用吹水佬在2023-4-13 09:08:51的发言：
?fun(5238)
?fun(5276)
?fun(36840)
?fun(36860)
?fun(116235)
?fun(116760)
FUNCTION fun(n)
m = 10^INT(LEN(TRANSFORM(n))/2)
RETURN ROUND(n/m,0) * m
ENDFUNC
?fun(5238)
?fun(5276)
?fun(36840)
?fun(36860)
?fun(116235)
?fun(116760)
FUNCTION fun(n)
m = 10^INT(LEN(TRANSFORM(n))/2)
RETURN ROUND(n/m,0) * m
ENDFUNC
吹版这个代码通用，
坚守VFP最后的阵地
