今日書いた謎なコード
最近、仕事でこんなコードばかり書いている気がする。。。
Public Function CompareFromTo(Of TObject As IComparable)( _ ByVal fromObject As TObject, ByVal toObject As TObject, _ Optional ByVal allowNull As Boolean = True, Optional ByVal allowEqual As Boolean = True) As Boolean Dim result As Boolean = False If (fromObject Is Nothing) OrElse (toObject Is Nothing) Then result = allowNull ElseIf (fromObject.CompareTo(toObject) < 0) OrElse (allowEqual = True AndAlso (fromObject.CompareTo(toObject) = 0)) Then result = True End If Return result End Function
CompareTo なのに Boolean を返しているのは、そう云う要件だったので。。。