雑記 - otherwise

最近はDQ10しかやっていないダメ技術者がちまちまと綴る雑記帳

今日書いた謎なコード

最近、仕事でこんなコードばかり書いている気がする。。。

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 を返しているのは、そう云う要件だったので。。。