ab.com コミュニティ

Dim d0 As Long, d1 As Long, d2 As Long, d3 As Long, d4 As Long, d5 As Long
d0=98765
d1=Int(d0/10000) ' 9
d2=Int((d0-(d1*10000))/1000) ' 8
d3=Int((d0-((d1*10000)+(d2*1000)))/100) ' 7
d4=Int((d0-((d1*10000)+(d2*1000)+(d3*100)))/10) ' 6
d5=d0-((d1*10000)+(d2*1000)+(d3*100)+(d4*10)) ' 5
MessageBox(0,Str$(d1)+":"+Str$(d2)+":"+Str$(d3)+":"+Str$(d4)+":"+Str$(d5),"表示テスト",MB_OK)

件名が「長すぎる」と怒られたので、勝手に変えさせていただきました(^^;

Dim d0 As Long,d1 As Long,d2 As Long,d3 As Long,d4 As Long,d5 As Long
    d0=98765
    d1=d0\10000            ' 9
    d2=(d0 Mod 10000)\1000 ' 8
    d3=(d0 Mod 1000)\100   ' 7
    d4=(d0 Mod 100)\10     ' 6
    d5=d0 Mod 10           ' 5
    MessageBox(0,Str$(d1)+":"+Str$(d2)+":"+Str$(d3)+":"+Str$(d4)+":"+Str$(d5),"表示テスト",MB_OK)

こんな感じでどうでしょうか？
高速になったかどうかは謎です(汗)が、読みやすくはなったと思います。

余り計算が理解できます、この方法が通常は一番早いと思います。
超高速演算でする時は＊、÷、÷の余り、は使えません。
（コプロセッサーの内部演算）
しかし一番良い方法だと思います。
囲碁と将棋の回答を出すので超高速でないと出来ません、悩んでいます。

これまでのiwaoさんの書き込みから判断すると、アセンブリ言語にも精通されている方のように思います。
アセンブリ言語を利用すれば、更に高速な処理を記述できます。
もしかしたら、既にご存知かもしれません。そのときはご容赦ください。

ＢＣＤをご存知でしょうか。Binary Coded Decimal（２進化１０進数）といいます。
これはメモリ効率が悪いデータ形式ですが、今回のような処理にはもってこいです。
というか、これ以外に使い道があるのかどうか、疑問です。だれかご存知の方いらっしゃいます？
初めてＢＣＤを知ったとき「○ンテルはどうしてこんな命令組み込んだんだろう」と首を傾げてしまいました（爆）
それは置いといて、、、
ＣＰＵの命令だから動作速度は最速（のハズ）です。また、除算を必要としません。
（ただし動作速度については検証しておりません。悪しからず。）

ＢＣＤは次のようなフォーマットです。 簡単に言えば、１０進数の一桁を表現するために４ビット使う、ということです。
例えば、１０進数の５２をＢＣＤで表現すると、0x52となります。
ｘ８７ ＦＰＵレジスタは１つあたり１０バイトの容量を持ちます。
先頭のバイトは符号バイトとして扱われるので、実質９バイトが利用できます。
ビットに換算すると７２ビット、一桁４ビットだから、７２÷４＝１８桁の１０進数をＢＣＤで表現できます。

この命令を利用する意義は大きいはずです。
こんな感じでいいとおもいます。

unsigned int i = 98765;    // 元の整数
unsigned char bcd[10];     // ＢＣＤ整数を格納するバッファ
char d[18];                // 各桁の値を格納する配列　　d[k]は 10 ^ k の位の値を保持する

int n;

__asm {

	fild    i
	fbstp   bcd

}

for(n = 0; n < 9; n++) {
	d[n * 2]     =  bcd[n] & 0x0F;
	d[n * 2 + 1] = (bcd[n] & 0xF0) >> 4;
}

FILDは整数をST(0)にロードする命令のニーモニック
FBSTPはST(0)をＢＣＤ形式に変換してストアしたあと、STをポップする命令のニーモニック

このアルゴリズムをＤＬＬ化するとよいとおもいます。
さすがに、コードの切れ端や実践コードモジュールに掲載できる程度を逸脱してしまいましたが・・・



［追記］
6月11日 12:18
上記コードは汎用形ですが、次のような無駄もあります。

• forループ内で乗算を２回行っている
• Long型の最大値は +2,147,483,647 であり、１８桁を下回る

このような観点から、次のように最適化できます。

int n2;
for(n = 0; n < 5; n++) {    // 下位１０桁を有効に扱えるよう、カウンタを調整
    n2 = n << 1;    // ２倍にはシフト演算を利用
    d[n2] =  bcd[n] & 0x0F;
    n2++;
    d[n2] = (bcd[n] & 0xF0) >> 4;
}

fildとfbstpは私はまだ使ったことがありません、これを見て作れるようになりました。インテルやペンティアムだけ使える、便利なコードもあるのはご存知だと思います（発表していないうらもあります）、通常はＯＳが同じ利用なので切り分けるのが難しく利用しませんが、このコードはどちらでも使えるコードで良いと思います。私はコンパイラーが一番好きでＡＢを使用させてもらい処理で遅くなる命令や関数をよく作りＤＬＬに置き換えします、ＣＰＵを識別させて他のよい機械語を利用することも考えます。私は何でもスクリプトを一番適切でよい、早い処理、一番よい式、で作らないと楽な生活が出来なくなります、私は遅れても前もって準備しながら一番先端に行けるように考えます、自分の能力が後れれば会社に出勤する大変な生活にはなりたくありません、そのため私に無駄な内容が多いときは遠慮しますが、内容が深く感謝します。