分離數值，6位數8位數，如何分解???

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
8 Q2 D/ t4 r* M: k#1=1234.(將被分離的數據)
# m( ?4 n" \6 s& N5 h#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
! s) t$ x' v- m! E. j#3=501.(儲存到#501以上)
#10=10.(十的乘冪)
$ m; U' ~& M) B$ EWHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
9 W8 F. c- l& m. M; _( [#3=#3+1.
#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
END1
M0

" @; z% a7 [1 n結果：
+ r7 G9 W3 k9 G4 K#501=4.
% s( l" }# P1 D( l# X6 L#502=3.
#503=2.
; v( O! y) K& p$ h; S) a: `#504=1.
* Z3 D5 D/ g5 ?8 a3 R) `+ A7 ?#1也可放入1011.類似2進制的運算
- r6 E5 j/ ^8 x
  N: g+ l& X8 a# n請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

楼主试试 大于9位数的分解........这个更有意思

羅蓋仙

回复 2# jiangssli
# j2 T3 Q3 m* o* l4 o8 [3 l
樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
  n/ c3 b7 [. B5 ~4 f- w; q$ G2 e" P
% @5 v, H: f/ f$ b
    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

感谢贴主分享经验感谢贴主无私分享宝贵知识，但是它具体用在什么地方