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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
#1=1234.(將被分離的數據)
#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
8 d# a  N  a5 f  u#3=501.(儲存到#501以上)
5 s7 b. _1 r" p  Q. [+ o0 f#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
#3=#3+1.
#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
2 Q/ v( q3 n9 M' n) q$ cEND1
  U4 g+ ^! |+ _) g( p# R# pM0

: j  h4 Y, w, K& \結果：
! M2 }  I" L/ P* {#501=4.
* W8 M5 _- L/ Z, k#502=3.
- K/ e) t7 U" D5 w( F, ]#503=2.
#504=1.
* X, _* h  @# [0 i( {" u1 @' f/ K#1也可放入1011.類似2進制的運算
0 D0 E' A; b0 V, ~- @  y3 h! d: l! h
$ \0 F) f' @5 k$ V( m7 P請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli

" ]* v0 W9 U" z+ ~7 j' E, i# s/ p樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
4 v# f& d! n: z' M, j* `! g' Q

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

1426437527

谢谢你分享的宏程式

VYF0412

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