«Public Function» не имеет параметров типа и поэтому не может иметь аргументов типа. VB.NET - PullRequest
Новая
       17

«Public Function» не имеет параметров типа и поэтому не может иметь аргументов типа. VB.NET

1 голос
/ 12 марта 2012

У меня тут какая-то проблема, и я не очень уверен, как ее решить. Если бы вы могли привести меня в правильном направлении, это было бы оценено: 

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

Ошибка в заголовке этого поста помечена на Right (Str $ (Of Date), 4) .

1 Ответ

4 голосов
/ 12 марта 2012

Remove Of.
Of используется для передачи аргументов универсального типа.

Вы должны заменить всю эту строку на DateTime.Now.Year.

...