2

私は次の関数を持っています:

Function getNext10(num)
    pageLen = len(num)
    If pageLen = 1 Then
        next10 = 10
    ElseIf pageLen>1 Then
        pageRem = 10
        pageTen = right(num, 1)
        next10 = num + pageRem - pageTen
    End If
    getNext10 = next10
End Function

その関数を使用すると、次のエラーが発生します。

Microsoft VBScript コンパイル「800a03f4」

'If' が期待される

/display/paging.asp、行 27

終了機能
------^

その機能の何が問題になっていますか?

4

1 に答える 1

0

これを試して:

Function getNext10(num)
    pageLen = len(num)
    If pageLen = 1 Then
        next10 = 10
    End If
    If pageLen>1 Then
        pageRem = 10
        pageTen = right(num, 1)
        next10 = num + pageRem - pageTen
    End If
    getNext10 = next10
End Function
于 2012-12-25T12:32:43.553 に答える