PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
13866 | 00/11/09 14:18:01 | RE(4):10進数→16進数の変換について By t.y |
13863 | 00/11/09 13:14:20 | RE(3):10進数→16進数の変換について By ふくぞー |
13861 | 00/11/09 12:49:13 | RE(2):10進数→16進数の変換について By Taka |
13844 | 00/11/08 19:49:43 | RE(1):10進数→16進数の変換について By M.M |
13843 | 00/11/08 19:29:42 | 10進数→16進数の変換について By adachit |
カテゴリ:PowerBuilderの開発環境
日付:2000年11月09日 14:18 発信者:t.y
題名:RE(4):10進数→16進数の変換について
adachitさん、こんにちは。
こんなのもあるって程度なんですが...
バグってたらすみません(-_-;
//******************************************************************************
// 16進数変換関数(0?32767まで)
// 関数内の16を引数渡しにすればn進数変換になる
// エラーチェックとかunsignedのときは考えてません(笑)
//
// 引数 :ai_iInt integer 変換する値
// ao_sStr string 16進変換文字列
//******************************************************************************
string sStr = \"0123456789ABCDEF\"
integer iMod, iDiv
integer iInt
iInt = ai_iInt //変換値ワークにセット
ao_sStr = \"\" //戻り値初期化
Do While True
iDiv = Truncate(iInt/16, 0) //商
iMod = Mod(iInt, 16) //剰余
ao_sStr = Mid(sStr, iMod + 1, 1) + ao_sStr
iInt = iDiv
IF iDiv = 0 THEN //商がなくなったら終わり
EXIT
END IF
Loop
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.