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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
. d1 a. S- b+ T' p' H5 J+ l程式例：
#1=1234.(將被分離的數據)
. ^# T. m5 I( p9 h1 S( M$ C- ?#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
#3=501.(儲存到#501以上)
4 W0 W6 v( o2 u#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
& u7 z* a$ Z$ o: R& C#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
3 N% S$ w7 j% p#3=#3+1.
! P* K4 A& t0 U$ s#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
END1
$ ~1 v& D$ k5 u8 ]+ nM0

結果：
/ ?0 k" U# ^* J4 T; L7 t" Y" t, Y#501=4.
+ {5 J$ p$ m) D; F1 Q#502=3.
#503=2.
) F+ N9 V/ n7 a$ P, b! B* z#504=1.
( S/ g4 U+ H2 X4 s#1也可放入1011.類似2進制的運算
* X- L! `" U  X. S' |8 H/ D( r* a
0 X% r. A7 P% e3 J8 U4 ~請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli

樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙

% ]1 ^! X* ]3 z0 Y+ p, T
! c9 X, C0 X5 p  [8 v    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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