獲取版本號及判斷是否運(yùn)行版本

admin

貼兩個(gè)函數(shù),用來獲取版本號及判斷是否運(yùn)行版本:

Function GetAccessVersion() As String   '獲取版本號

  GetAccessVersion =SysCmd(acSysCmdAccessVer)

End Function



Function IsRuntime()                            '判斷是否運(yùn)行版本         

On Error GoTo ErrIsRuntime

IsRuntime =SysCmd(6)

ExitIsRuntime:

         Exit Function



ErrIsRuntime:

    If (Err =5) Then

        IsRuntime =False

    Else

        Error Err

    End If

    Resume ExitIsRuntime

End Function

tmtony

請注意：在高版本未測試過。