「オーバーロードを解決できません」とエラーメッセージが出ます。
WinXP Home AB Ver5 CP3で確認いたしました。
お手数でしょうが修正のほどよろしくお願いいたします。
コード: 全て選択
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