'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に置き換える必要があります。