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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
#1=1234.(將被分離的數據)
#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
* ]% c7 P4 ^2 C& q4 C#3=501.(儲存到#501以上)
! x8 j, }1 P* P% h0 @) ^! B6 X#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
- c; l1 o, R* z0 N- R. `5 x#3=#3+1.
#2=#2-1.
# o" m. ^- ]7 \9 j* E  g#10=#10*10.(百-->千-->萬一直放大十倍)
0 X2 i% P' W  Z! jEND1
M0
! L$ Q* f( A  ~1 E( h
6 E4 Y* K* k% w8 E6 b" [結果：
6 r8 {+ @' q4 E8 f$ F#501=4.
6 O( L8 [) v8 v1 V1 v; h#502=3.
9 l! G6 c; ~: g#503=2.
$ d) f/ c- s* H9 Y' r. w( D#504=1.
- j& R. `: M: m. v& s#1也可放入1011.類似2進制的運算
) {, x4 K' N1 t; `2 _
) |  p4 C# S  l: a# l* Q; E請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli

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

jiangssli

回复 3# 羅蓋仙
6 Z6 v( V% z. C$ H7 \) _4 `4 I  F: f
# P/ Y% L0 j& u/ X' r9 k+ b9 T
    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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