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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
#1=1234.(將被分離的數據)
, H9 q! N) N/ q, U9 ]#1=ABS[FIX[#1]]
! d( D  _: {5 q( l9 i5 u; d#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
#3=501.(儲存到#501以上)
7 u* O8 ]+ B8 l! y& n#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
% B& R' `" k3 }6 |$ B8 _: U' u! k#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
#3=#3+1.
# W: O2 Y! G: T2 ?" J- [#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
END1
; f7 C! |1 J5 p9 H) ~* q; fM0

結果：
; b: h! X' N* Z! w0 X* n#501=4.
5 D0 D$ ~' b; t4 J- j: t7 j#502=3.
4 W( i4 d7 f5 U9 C+ {. y#503=2.
) \, y+ w; N, `9 ^) H2 f- G#504=1.
#1也可放入1011.類似2進制的運算
9 j/ P* _' w& E6 h9 t
  {0 h# h0 w* M/ T, W請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli
! _- i4 D6 I+ A5 d
樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
5 }; R4 c1 [9 ]3 H
, ]* ]0 u2 o5 p$ b6 @9 W3 X
+ R* U7 P$ h1 J/ A    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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