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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
! m$ Z/ C! ?- `程式例：
& s7 D; w+ w- o4 M; a3 P" A#1=1234.(將被分離的數據)
6 d% h5 U1 j! F# }: @6 e#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不劃算，一定要帶千元)
#3=501.(儲存到#501以上)
$ r1 |2 @* h/ o) ~6 u9 {#10=10.(十的乘冪)
  y, O- d2 ]- D1 D( i# K% f8 W% {WHILE[#2GT0.]DO1
" l5 h9 S, J- @- D& T, n#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
#3=#3+1.
* ^0 N- D$ U+ u  M% R#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
9 P) ^$ [; r  }; x) FEND1
3 I/ B  J) |, A  NM0
3 |0 F4 z0 `' f* h9 }% l
結果：
#501=4.
#502=3.
7 [# g1 b6 c8 Y* P: o/ _#503=2.
: S7 P1 J5 \) e; |' y& A  O#504=1.
#1也可放入1011.類似2進制的運算

請問你有其他更佳的寫法嗎?請提出來謝謝

VYF0412

感謝貼主分享經驗感謝貼主無私分享寶貴知識，但是它具體用在什么地方

1426437527

謝謝你分享的宏程式

jiangssli

回復 3# 羅蓋仙
3 G) `0 j" n6 i! b( \, n' l' Z1 G& W
2 g9 ]+ ^7 K( y( e5 I' L) F
    哈哈.............要是你能讓系統可以判斷大于9位數的才是真的厲害啊...

羅蓋仙

回復 2# jiangssli
) |7 x9 r: i; e5 k$ l1 B
! c1 |- n! Z) s  T樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

樓主試試 大于9位數的分解........這個更有意思