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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
4 a4 c5 P5 o$ ~% m4 K程式例：
8 z& ?1 @' `  J5 y9 ?#1=1234.(將被分離的數據)
#1=ABS[FIX[#1]]
3 T2 _2 M/ k) j: b5 J#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
8 N1 P4 F/ d$ S& T9 z% Y. n#3=501.(儲存到#501以上)
#10=10.(十的乘冪)
) y- f, F( h4 Q1 _WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
4 [9 B  M: S- a7 s7 j4 k#3=#3+1.
7 i8 b# h- p  B#2=#2-1.
  J8 x9 j, o& S/ x/ D* _+ e" z#10=#10*10.(百-->千-->萬一直放大十倍)
END1
) c. t7 A8 X$ r  k& F8 U' hM0

# f1 C0 K6 I( {0 T# V* U& l$ [5 p結果：
; q/ I5 G8 T. \#501=4.
% Q  F0 n# I- M3 c* ^8 |4 `0 Q$ M#502=3.
4 Z# m7 U, F& \3 r. i$ Z5 [#503=2.
  f0 u) E5 l9 F/ {5 A( N#504=1.
$ \, R- U  |2 X# m( s" v#1也可放入1011.類似2進制的運算
$ ^: a+ ?2 ]: y+ Z, a
& A0 Z5 _: k5 g$ {3 ^3 I' j' y請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli
' x6 ~0 }1 |5 s8 Q) ^/ J
. @  ]. S; {" N$ Y* F' D樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
3 [* W# _) I( B: V* h: b9 t- W

    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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