Блог

У меня есть класс many со свойствами BeginDate и EndDate, я хочу создать универсальный метод, который возвращает один объект в виде списка того же типа, но с BeginDate=EndDate .

Пример:

Элемент.Дата начала = 2011-05-01 , Элемент.Дата окончания = 2011-05-03

результат должен быть

Item1.BeginDate = 2011-05-01 , Item1.EndDate = 2011-05-01

Item2.BeginDate = 2011-05-02 , Item2.EndDate = 2011-05-02

Item3.BeginDate = 2011-05-03 , Item3.EndDate = 2011-05-03

Я попробовал следующий код

 <Extension()> _
        Public Function GetRatesPerDay(Of T As Class)(ByVal oldRatesList As List(Of T)) As List(Of T)
            If oldRatesList Is Nothing OrElse oldRatesList.Count = 0 Then
                Return New List(Of T)
            End If
            Dim ratesInDays As New List(Of T)

            Dim oldBeginDate = oldRatesList.Where(Function(D) D IsNot Nothing).Min(Function(D) GetType(T).GetProperty("BeginDate", GetType(DateTime)).GetValue(D, Nothing))
            Dim oldEndDate = oldRatesList.Where(Function(D) D IsNot Nothing).Max(Function(D) GetType(T).GetProperty("EndDate", GetType(DateTime)).GetValue(D, Nothing))

            Dim currentDay As DateTime = oldBeginDate

            Dim typeArgs() As Type = {GetType(DateTime), GetType(DateTime), GetType(Nullable(Of Double)), GetType(String), GetType(HUMPSBaseClasses.RoomRateType)}
            Dim constructed As Type = GetType(T).MakeGenericType(typeArgs)

            While currentDay <= oldEndDate
                Dim dayRate = (From D In oldRatesList _
                                Where D IsNot Nothing _
                                AndAlso currentDay >= GetType(T).GetProperty("BeginDate", GetType(DateTime)).GetValue(D, Nothing) _
                                AndAlso currentDay <= GetType(T).GetProperty("EndDate", GetType(DateTime)).GetValue(D, Nothing) _
                                Select New With {.NightRate = GetType(T).GetProperty("NightRate", GetType(Nullable(Of Double))).GetValue(D, Nothing), _
                                                 .RatePlanID = GetType(T).GetProperty("RatePlanID", GetType(System.String)).GetValue(D, Nothing), _
                                                 .RoomRateType = GetType(T).GetProperty("RoomRateType", GetType(HUMPSBaseClasses.RoomRateType)).GetValue(D, Nothing) _
                                                 }).SingleOrDefault()

                If dayRate IsNot Nothing Then
                    Dim tempRate As Object = Activator.CreateInstance(constructed)
                    tempRate = New With {.BeginDate = currentDay, _
                                             .EndDate = currentDay, _
                                             .NightRate = dayRate.NightRate, _
                                             .RatePlanID = dayRate.RatePlanID, _
                                             .RoomRateType = dayRate.RoomRateType}
                    ratesInDays.Add(tempRate)
                End If
                currentDay = currentDay.AddDays(1)
            End While
            Return ratesInDays
        End Function
  

но я столкнулся с проблемой, что Type.IsGenericTypeDefinition один из моих классов является false.

Как я могу присвоить ему значение true?

Вы не можете. Это свойство доступно только для чтения.

Вы получаете false , потому что класс не является универсальным. Только ваш метод является.

Вы должны иметь возможность поразмышлять над типом и получить свой MethodInfo. Затем вы можете использовать либо MethodInfo.IsGenericMethod , либо MethodInfo.IsGenericMethodDefinition .

Другим вашим вариантом было бы изменить класс на универсальный, но это было бы излишним, поскольку это (я предполагаю здесь) единственный метод, которому нужен универсальный параметр.

Вы не можете установить значение этого свойства — оно доступно только для чтения.