excel-vba代码

Question

任何人都可以解释下面的代码......

Public Sub delay(seconds As Long)
            Dim endTime As Date
            endTime = DateAdd("s", seconds, Now())
            Do While Now() < endTime
                DoEvents
            Loop
        End Sub

    Function GetText2(ByVal strText, ByVal strStartTag, ByVal strEndTag)
        Dim intStart, intEnd
        intStart = CLng(InStr(1, strText, strStartTag, vbTextCompare))

        If intStart Then
            intStart = CLng(intStart + Len(strStartTag))
            intEnd = InStr(intStart + 1, strText, strEndTag, vbTextCompare)
            If intEnd <> 0 Then
             GetText2 = Mid(strText, intStart, intEnd - intStart)
           Else
              GetText2 = ""
            End If
        Else
            GetText2 = ""
        End If
    End Function

Answer 1

Abhi，它看起来像GetText2函数接受三个字符串，在第一个字符串中搜索第二个和第三个字符串，并在第二个和第三个字符串之间返回文本。例如：

GetText2("The quick brown fox jumps over the lazy dog","quick","fox")

应该返回字符串：

"quick brown fox"

delay sub只会导致程序暂停指定的秒数。