Custom Query (162 matches)

GCが追跡できないところでオブジェクトが保持される場合に、オブジェクトの生存を保障するためのハンドルを保持するクラス。

弱い参照関連は実装せず、ほかができたら一応の完成とする。

関数呼出時や初期化時では問題ありませんが、後から代入するときには下のようにエラーになります。

Class Base
End Class

Class Derived
	Inherits Base
End Class

Dim d = New Derived

Dim b = d As Base 'Ok
Dim o = d As Object 'Ok

Dim b2 As Base
Dim o2 As Object

b2 = d 'キャスト演算子がオーバーロードされていません。
o2 = d '〃

b2 = d As Base '"Operator As" は定義されていません。
o2 = d As Object '〃

AddYearあたりがスマートでなかったり、仕様変更のためにした応急処置が使えなくなってきたので再実装する。

Function kindFromBinary(dateData As Int64) As DateTimeKind
	dateData = (dateData >> 62) And &H03
	If dateData = &H01 Then
		Return DateTimeKind.Local
	ElseIf dateData = &H02 Then
		Return DateTimeKind.Unspecified
	ElseIf dateData = &H03 Then
		Return DateTimeKind.Utc
	Else
		' どれにも該当しなかったときはどうなるんでしょうか？？
		Return DateTimeKind.Local
	End If
End Function

必ずどれかに該当する仕様になるはずですが、コンストラクタでコンストラクタを呼んでいることが原因で、該当しない状態が出てきてしまっています。