古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net (835ﾚｽ)
古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1440930335/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
657: デフォルトの名無しさん [sage] 2022/05/04(水) 01:56:07.05 ID:cCuNnoh+ 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 http://mevius.5ch.net/test/read.cgi/tech/1440930335/657
660: デフォルトの名無しさん [sage] 2022/05/04(水) 19:05:29.42 ID:cCuNnoh+ >>658-659 レスthx どっかのサイトの解説で、Currency型は整数15桁と小数4桁の8バイトで整数精度に問題あり。 LONGLONGと同じ8バイトのDouble型推奨って書いてたから、Double型との相互変換で サンプル探してたけど、Double型が8バイトなのは最近のVBであって VB6のDouble型って4バイトなのね。orz Currency型とLARGE_INTEGER型の相互変換で探したら、すぐ見つかりました。 どうもお騒がせいたしました。 http://mevius.5ch.net/test/read.cgi/tech/1440930335/660
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.342s*