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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
8 x% ?+ z( t8 |9 t程式例：
" c7 s* S; J7 x' T#1=1234.(將被分離的數據)
) Z, O, b: [5 g* |& A# E# h#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
#3=501.(儲存到#501以上)
2 _  E+ r' d- g  E! e6 I7 T#10=10.(十的乘冪)
, m2 K& P: ^( @9 e, k2 a+ X" YWHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
#3=#3+1.
#2=#2-1.
* z1 v1 k8 w8 {* ^7 |# X" F#10=#10*10.(百-->千-->萬一直放大十倍)
END1
5 Y8 }5 E4 ~9 o; b* c/ xM0

結果：
#501=4.
#502=3.
#503=2.
; B9 R/ X; f* W#504=1.
#1也可放入1011.類似2進制的運算
7 V6 s$ J/ }- s+ O' V3 B2 ]1 i5 h6 N
0 M2 E8 d& B7 u* n0 X1 G! c請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli

0 L# }) m$ o/ |1 g9 T% R樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
! g: Q* e  c9 ~0 U& u5 p
7 H, G) }$ c6 i2 X+ g
3 ~' X0 X3 p3 O( K4 ^7 F    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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