Custom Query (162 matches)

Dim x As EnumBase '文法エラー

おそらくこれが原因でEnumBaseのOperator andなどの文法エラーが発生している。

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

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

Dim obj As MyObject
obj.Method()

Class MyObject
	m_Value As Long
Public
	Sub Method()
		Dim obj = This
		debug
	End Sub
End Class

グローバルとローカルのobjで、なぜかm_Valueの値が異なっている。