'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。