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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.