当不在参数中时如何获取函数中对象的属性

Question

我不太擅长VB，并且在解决某些问题时遇到了一些严重的问题。 对于学校，我必须完成一项任务，并且进行一些测试，所有测试都必须运行为True

    Console.WriteLine(placeToStay1.Overlapswith(placeToStay2) = False)     'True     
    Console.WriteLine(placeToStay1.Overlapswith(placeToStay3) = False)     'True
    Console.WriteLine(placeToStay1.Overlapswith(placeToStay4) = True)      'True   
    Console.WriteLine(placeToStay1.Overlapswith(placeToStay5) = True)      'True
    Console.WriteLine(placeToStay1.Overlapswith(placeToStay6) = False)     'True
    Console.WriteLine(placeToStay1.Overlapswith(placeToStay7) = False)     'True

具有属性的placeToStay的示例：

Dim placeToStay1 As New placeToStay
placeToStay1.Room = 123           'String
placeToStay1.From = #10/23/2013#  'Date
placeToStay1.Till = #10/28/2013#  'Date

这是我课堂上的内容：

Public Class placeToStay
    Public Property Room As String
    Public Property From As Date
    Public Property Till As Date

    Dim _tillDate As Date = Till
    Public Function OverlapsWith(date2 As placeToStay) As Boolean
        Dim TheBool As Boolean
        If _tillDate > date2.From Then
            TheBool = True
        Else
            TheBool = False
        End If
        Console.WriteLine(_tillDate)
        Return TheBool 
    End Function

End Class 

您可能已经猜到这根本不返回true。 如果未在参数中给定，如何从placeToStay1获取Till属性 ？

测试代码必须保持不变（console.writeline行），欢迎任何帮助:)

Answer 1

我假设两个实例“重叠”，如果其中一个的起始/终止日期落在另一个的起始/终止日期之内？

如果是，请尝试以下操作：

Public Class placeToStay

    Public Property Room As String
    Public Property From As Date
    Public Property Till As Date

    Public Function OverlapsWith(ByVal pts As placeToStay) As Boolean
        Return (pts.From >= Me.From AndAlso pts.From <= Me.Till) OrElse
            (pts.Till >= Me.From AndAlso pts.Till <= Me.Till)
    End Function

End Class