VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/03/19(Wed) 17:56 |
| 投稿者 | ： Lantern |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 16進数を10進数へ変換する方法 |
変数は通常オフセットバイナリで値を読みますので、
これをストレートバイナリに変換するといった考え
でコードしたほうがよいのではと思いました。
4Byteをストレートバイナリで読むサンプルです。
Text1 :0からFFFFFFFFまでの１６進を入力
Label1:Text1を１０進で表示
Private Sub Command1_Click()
Dim s16 As String
Dim s10 As String
s16$ = "&H" & String$(8& - Len(Text1.Text), "0") & Text1.Text
If CInt(Mid$(s16$, 1, 3)) < 8 Then
s10$ = CStr(CDbl(s16$))
Else
s10$ = CStr(CDbl("&H7FFFFFFF") + CDbl("&H7FFFFFFF") + 2 + CDbl(s16$))
End If
Label1.Caption = s10$
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）