'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 $（Of Date），4）。

Answer 1

删除Of Of用于传递泛型类型参数。

您应该用DateTime.Now.Year替换整行。