古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net (832ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

657(1): デフォルトの名無しさん [sage] 2022/05/04(水) 01:56:07.05 ID:cCuNnoh+(1/2) AAS
VB6でDouble型をLarge_Integer型に変換するにはどうすればいいんでしょうか？

ググって以下のソースを見つけたのですが、オーバーフローします。
QuadPart使えないし。。。

Private Function cvtDblToLi(Val As Double) As LARGE_INTEGER
Dim foo As LARGE_INTEGER

foo.lowpart = Val And &HFFFFFFFF
foo.highpart = RightShift(Val, 16)

cvtDblToLi = foo

End Function

---

659(1): デフォルトの名無しさん [] 2022/05/04(水) 08:51:33.36 ID:llwekS7n(1) AAS
>>657
つかさー
VB6のDouble 型ってIEEE754に準拠してるだろうから
もっと基数とか指数とか仮数とかちゃんとみて
変換掛けてやらないといけないんじゃない？(鼻ホジ)

なんかそれ見てると下位4バイトをlowPartに
上位6バイトをhighPartに突っ込んでるようにしか見えない

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.209s*