'Public Function'에는 형식 매개 변수가 없으므로 형식 인수를 사용할 수 없습니다. VB.NET

Question

여기에 몇 가지 문제가 있습니다. 어떻게 처리해야할지 모르겠습니다. 당신이 올바른 방향으로 날 이끌 수 있다면, 그이 평가 될 것입니다 :이 게시물의 제목에

Private Function Convert2YearTo4Year(ByVal str_DTG2Year As String) As String 

    Dim str_sys4Year As String 
    Dim i_sys2Year As Integer 
    Dim i_sys2Century As Integer 

    str_sys4Year = Right(Str$(Of Date), 4) 
    i_sys2Year = Val(Right(str_sys4Year, 2))   'value of system 2-digit yr 
    i_sys2Century = Val(Left(str_sys4Year, 2))   'value of system 2-digit century 

    If Val(str_DTG2Year) < i_sys2Year And i_sys2Year - Val(str_DTG2Year) > 50 Then   'next century 
     Convert2YearTo4Year = Trim$(Str$(i_sys2Century + 1) + str_DTG2Year) 
    ElseIf Val(str_DTG2Year) > i_sys2Year And Val(str_DTG2Year) - i_sys2Year > 50 Then  'prev century 
     Convert2YearTo4Year = Trim$(Str$(i_sys2Century - 1) + str_DTG2Year) 
    Else 
     Convert2YearTo4Year = Trim$(Str$(i_sys2Century) + str_DTG2Year)       'current century 
    End If 
End Function 

오류가 우 (날짜의 str을 $(), 4)에 신고한다.

Answer 1

Of을 삭제하십시오.
Of은 제네릭 형식 인수를 전달하는 데 사용됩니다.

전체 줄을 DateTime.Now.Year으로 바꿔야합니다.