ab.com コミュニティ

ご報告ありがとうございます。こちらでも現象が確認できました。次回のバージョンアップで修正しますので、今しばらくお待ちください。

Type Complex
  Re As Double
  Lm As Double
End Type

Function Abs(ByRef Value As Complex) As Complex
  Abs.Lm = Value.Lm
  SetQWord(VarPtr(Abs.Re), GetQWord(VarPtr(Value.Re)) And &H7FFFFFFFFFFFFFFF)
End Function

#prompt
Dim A As Complex, B As Complex
A.Re = -1.0
A.Lm = 1.0
B = Abs(A)
Print B.Re

関数のオーバーロードで、クラスや構造体を引数とする関数があると、
「オーバーロードを解決できません」とエラーメッセージが出ます。
WinXP Home AB Ver5 CP3で確認いたしました。
お手数でしょうが修正のほどよろしくお願いいたします。
[code]Type Complex
Re As Double
Lm As Double
End Type

Function Abs(ByRef Value As Complex) As Complex
Abs.Lm = Value.Lm
SetQWord(VarPtr(Abs.Re), GetQWord(VarPtr(Value.Re)) And &H7FFFFFFFFFFFFFFF)
End Function

#prompt
Dim A As Complex, B As Complex
A.Re = -1.0
A.Lm = 1.0
B = Abs(A)
Print B.Re[/code]